#' read_ids
#'
#' @param filelist
#'
#' @importFrom magrittr %>%
#'
#' @return NULL
#' @noRd
#'
#' @examples
#' \dontrun{
#' filelist <- list.files()
#' lapply(filelist, read_ids)
#' }
read_ids <- function(filelist){
filelist <- as.character(strsplit(filelist, ".csv"))
utils::read.csv(paste0(filelist, ".csv")) %>%
dplyr::mutate(.id_col = filelist)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.