R/meta_sched.R

In Ingenuity-Inc/artlookR: Work with artlook data

#' artlookR instructor work schedule metadata
#'
#' @return A list with the label names and corresponding levels for full time & part time.
#' @details This may be a bit excessive. It's just setting up the factors for when you need full time and part time as stored in the
#' artlookR \code{instructors} table.
#'
#' * Because this information is not stored in the artlookR database, you are not required to run the \code{connection.R} script
#' and create a connection object for this script to run.
#' @examples meta_sched()
#' @export
meta_sched <- function(...){

  output <- list(label = c("Full Time", "Part Time"),
                 level = c("full_time", "part_time"))

  output

}