read.filet <- function(filename){
fmt.list = fmt.default()
out = read.dssat(filename,fmt.list=fmt.list)
out = out[,!colnames(out)%in%c('RUN')]
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.