R/tags_defaults.R

In epiverse-trace/linelist: Tagging and Validating Epidemiological Data

#' Generate default tags for a linelist
#'
#' This function returns a named list providing the default tags for a
#' `linelist` object (all default to NULL).
#'
#' @export
#'
#' @importFrom stats setNames
#'
#' @return A named `list`.
#'
#' @examples
#' tags_defaults()
#'
tags_defaults <- function() {
  setNames(
    vector(
      "list",
      length = length(tags_types())
    ),
    names(tags_types())
  )
}