inst/db_build/copy_statement.R

file.dir = "F:\\Documents\\GitHub\\nasacms\\fia"

temp = list.files(path = file.dir, pattern="*.CSV")
tempnocsv = gsub(".CSV","", temp)

cat(print(paste("COPY FIA.",tempnocsv," FROM '",paste0(file.dir,"\\",temp),"' DELIMITER ',' CSV HEADER;", sep="", collapse="\n")))
coatless/fiadb documentation built on May 13, 2019, 8:46 p.m.