inst/extdata/typesystemcomparison.R

In maptracker/dynamictable: Create Simple HTML Pages from Tabular R Data Structures

locFile <- "inst/extdata/typesystemcomparison.tsv"
src     <- "https://en.wikipedia.org/wiki/Comparison_of_type_systems"
when    <- "2017 Jan 17"
lic     <- "Creative Commons Attribution-ShareAlike"

x <- read.table(locFile, quote=c('"'), sep="\t", na=c("NA",""),
                header=T, row.names=1)

attr(x,"License")   <- lic
attr(x,"Source")    <- src
attr(x,"Retrieved") <- when

rda <- gsub("\\.tsv$",".rda", locFile)
rda <- gsub("^inst\\/extdata","data", rda)
typesystemcomparison <- x
save(typesystemcomparison, file = rda)
message("RDA object saved to: ", rda)