Displaying 1 result from an estimated 1 matches for "tabdesc".
2004 Nov 02
2
A little more on R, mdbtools and Access databases
...uote(tableName)
cat("describe table ", tableName, "\ngo", file = "tempR.sql")
mdesc <- system(paste("mdb-sql -i tempR.sql ", dbname), intern=TRUE)
mdesc <- strsplit(substring(mdesc[-c(1:3,5, length(mdesc), length(mdesc)-1)], 2), "\\|")
tabDesc <- rbind(mdesc[[2]])
for (i in 3:length(mdesc)) {
tabDesc <- rbind(tabDesc, mdesc[[i]])
}
tabDesc <- matrix(trim(tabDesc), ncol=3)
tabDesc <- data.frame(tabDesc)
names(tabDesc) <- c("ColumnName", "Type", "Size")
tabDesc$Size <- as.nume...