Nothing
source("incl/start.R")
message("*** Extending TabularTextFile")
pathA <- system.file("exData", "dataSetA,original", package="R.filesets")
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Plain tab-delimited file
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
tsf <- TabularTextFile("fileB,other,tags.dat", path=pathA)
print(tsf)
# Read all data
data <- readDataFrame(tsf)
str(data)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Custom tab-delimited file
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if (!is.element("covr", loadedNamespaces())) {
setConstructorS3("MyTabularTextFile", function(...) {
extend(TabularTextFile(...), "MyTabularTextFile")
})
setMethodS3("getDefaultColumnClassPatterns", "MyTabularTextFile", function(...) {
c("*"="NULL", "(x|y)"="integer")
})
tsfx <- MyTabularTextFile("fileB,other,tags.dat", path=pathA)
print(tsfx)
rargs <- getReadArguments(tsfx)
print(rargs$colClasses)
stopifnot(rargs$colClasses["x"] == "integer",
rargs$colClasses["y"] == "integer",
rargs$colClasses["fac"] == "NULL",
rargs$colClasses["char"] == "NULL")
datax <- readDataFrame(tsfx)
str(datax)
}
source("incl/end.R")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.