R/test-fileFormat.R

In wrightaprilm/treeStartR: Generate Starting Trees For Combined Molecular, Morphological and Stratigraphic Data

#' Utility function to check if file is a csv or tsv.
#'
#' @param dataf Path to input file
#' @return None
#'
fileformat <- function(dataf) {
if (endsWith(dataf, ".tsv") == FALSE & endsWith(dataf, ".csv") == FALSE){
  stop("This is not a supported file format. Please load in the
        total set of taxa as a TSV or CSV file.")
} else {
  message("File format is appropriate")
}
  return(0)
}