if (FALSE) {
library(readr)
download_csv(tablename="12411-0004")
d <- read_header_genesis('12411-0004.csv', start=6, replacer=c("STAG"))
data <- read_csv2('12411-0004.csv', skip=6, n_max=30-6+1,
na="-", locale=locale(encoding="windows-1252") )
colnames(data) <- d
}
Run the code above in your browser using DataLab