Nothing
read.toa5 <- function( file ) {
line=read.csv(file,header=F,nrows=1)
if (line[,1] != "TOA5") {
stop (paste(file,"does not have TOA5 format"))
}
data=read.csv(file,skip=4,header=F)
names(data)=as.matrix(read.csv(file,skip=1,header=F,nrows=1))
if ("TIMESTAMP" %in% names(data)) {
data$TIMESTAMP = as.POSIXct(data$TIMESTAMP)
}
data
}
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.