R/read.csv0.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' read.csv with try
#'
#' @param path
#' @param skip
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
read.csv0 <- function(path, skip = 0, ...) {
  df <- NULL
  try({
    df <- read.csv(path[length(path)], skip = skip, ...)
  }, silent = T)
  if (is.null(df)) {
    cat(sprintf('File access failed @ \n %s', basename(path)))
  }
  return(df)
}