R/elements.R

In ropenscilabs/charlatan: Make Fake Data

#' Get elements
#'
#' @export
#' @name elements
#' @template params
#' @seealso [ElementProvider]
#' @examples
#' ch_element_symbol()
#' ch_element_symbol(10)
#' ch_element_symbol(50)
#'
#' ch_element_element()
#' ch_element_element(10)
#' ch_element_element(50)
ch_element_symbol <- function(n = 1) {
  assert(n, c("integer", "numeric"))
  if (n == 1) {
    ElementProvider_en_US$new()$symbol()
  } else {
    x <- ElementProvider_en_US$new()
    replicate(n, x$symbol())
  }
}

#' @export
#' @rdname elements
ch_element_element <- function(n = 1) {
  assert(n, c("integer", "numeric"))
  if (n == 1) {
    ElementProvider_en_US$new()$element()
  } else {
    x <- ElementProvider_en_US$new()
    replicate(n, x$element())
  }
}