R/read_csv_filename.r

In ActisoftR: A Toolbox for Parsing Scored Actigraphy Data

#' Imports a CSV file and attaches the file path as a column.
#'
#' @param filename file path
#'
#' @return a dataframe
#'
#' @export

read_csv_filename <- function(filename){
  mycsv <- read.csv(filename, sep = ",", header = TRUE, skip = 0, na.strings = c("NA", "NaN", ".", "*", ""), fileEncoding = "UTF-8-BOM")
  mycsv$file_name <- filename
  mycsv
}