R/readMyFile.R

In netknitr: Knit Network Map for any Dataset

#' readMyFile
#'
#' @param this_file File path
#' @author Jayachandra N
#' @description
#' Read input files including .csv, .xlsx and .txt files in tabular format and return as data.frame.
#'
#' @return data.frame, content of the file.
#' @export
#' @importFrom openxlsx read.xlsx
#' @importFrom utils read.csv read.table
#' @examples
#' temp_file <- tempfile(fileext = ".csv")
#' write.csv(mtcars, temp_file)
#' readMyFile(temp_file)
readMyFile <- function(this_file) {
  res <- strsplit(x = this_file, split = "\\.")
  unlisted_res <- unlist(res)
  ext <- unlisted_res[length(unlisted_res)]
  if (ext == "csv")
    tmp <- utils::read.csv(file = this_file, header = TRUE)
  if (ext == "xlsx")
    tmp <- openxlsx::read.xlsx(this_file)
  if (ext == "txt") {
    tmp <- utils::read.table(this_file)
    tmp <- as.data.frame(tmp)
  }
  return(tmp)
}