R/utils_readPlaintext.R

In earnaud/MetaShARK-v2: metashark

#' @title readFilesText
#'
#' @param files files basename located in the same directory or,
#' if prefix = NULL, list of full filenames to read
#' @param prefix common file prefix for all file names
#' specified in 'files'. By default, sep = "/"
#'
#' @importFrom readtext readtext
readPlainText <- function(files, prefix = NULL, sep = "/", ...) {
  if (is.null(prefix)) sep <- ""

  readtext::readtext(
    paste(
      prefix,
      files,
      sep = sep
    )
  )$text
}