R/raw_data.R

In gipsousp/mctq: Munich ChronoType Questionnaire Tools

#' Get paths to `mctq` raw datasets
#'
#' @description
#'
#' `r lifecycle::badge("maturing")`
#'
#' `mctq` comes bundled with raw fictional datasets for testing and learning
#' purposes. `raw_data()` makes it easy to access their paths.
#'
#' @param file (optional) a [`character`][character()] object indicating the raw
#'   data file name(s). If `NULL`, all raw data file names will be returned
#'   (default: `NULL`).
#'
#' @return If `file == NULL`, a [`character`][character()] object with all file
#'   names available. Else, a string with the file name path.
#'
#' @family utility functions
#' @export
#'
#' @examples
#' \dontrun{
#' ## To list all raw data file names available
#'
#' raw_data()
#'
#' ## To get the file path from a specific raw data
#'
#' raw_data("std_mctq.csv")}
raw_data <- function(file = NULL) {
  checkmate::assert_character(file, any.missing = FALSE, null.ok = TRUE)

  if (is.null(file)) {
    list.files(system.file("extdata", package = "mctq"))
  } else {
    system.file("extdata", file, package = "mctq", mustWork = TRUE)
  }
}