R/makeExamplePedigreeFile.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Write copy of nprcgenekeepr::examplePedigree into a file
#'
## Copyright(c) 2017-2020 R. Mark Sharp
## This file is part of nprcgenekeepr
#' Uses \code{examplePedigree} data structure to create an example data file
#'
#' @return Full path name of file saved.
#'
#' @examples
#' \donttest{
#' library(nprcgenekeepr)
#' pedigreeFile <- makeExamplePedigreeFile()
#' }
#' @param file character vector of length one providing the file name
#' @param fileType character vector of length one with possible values of
#' \code{"txt"}, \code{"csv"}, or \code{"xlsx"}. Default value is \code{"csv"}.
#'
#' @importFrom utils write.table write.csv
## ## rmsutilityr create_wkbk
#' @export
makeExamplePedigreeFile <- function(file = file.path(tempdir(),
                                                     "examplePedigree.csv"),
                                    fileType = "csv") {
  stopifnot(any(fileType %in% c("txt", "csv", "excel")))
  if (fileType == "csv") {
    write.csv(nprcgenekeepr::examplePedigree,
              file = file, row.names = FALSE)
  } else if (fileType == "excel") {
    status <-
      create_wkbk(file = file,
                  df_list = list(nprcgenekeepr::examplePedigree),
                  sheetnames = "Example_Pedigree", replace = FALSE)
    if (!status)
      stop(paste0("Failed to write example data out to ", file, "."))
  } else {
    write.table(nprcgenekeepr::examplePedigree,
              file = file, row.names = FALSE, sep = "\t")
  }
  file
}