#' @import data.table
#' @export
mattReadR <- function(outlist) {
data <- fread(outlist)
data[, filename := outlist]
data[, c("species", "sex", "stime") := mattSplitR(outlist)]
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.