#' @export
readEEM_uf <- function(file, fold = TRUE){
EEM <- read.csv(file, row.names = 1)
if (fold) EEM <- fold(EEM)
return(EEM)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.