#' Return function for writing common file types
#' @param filename file to be written
#' @return function for writing file
#' @details Uses the file suffix to return write.csv, png, pdf, save, saveRDS
#' @export
#' @examples
#'\dontrun{
#' identical(utils::write.csv,guessWriteFcn("data.csv"))
#'}
guessWriteFcn <- function(filename){
# returns the function for reading a file with the suffix in x
suffix <- tolower(gsub(".*\\.","",filename))
if(gsub(".*\\.","",filename)=="RData"){return(saveRDS)}
if(tolower(gsub(".*\\.","",filename)=="rda")){return(saveRDS)}
if(suffix=="png"){return(grDevices::png)}
if(suffix=="pdf"){return(grDevices::pdf)}
if(suffix=="csv"){return(utils::write.csv)}
if(suffix=="rdata"){return(save)}
return(FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.