R/refer.R

In sigbertklinke/exams2moodle: Access routines to XML Moodle files and helper routines to simplify generating exercises for Moodle from the 'exams' package

#' refer
#'
#' Creates names for elements of a vector.
#'
#' @param x vector: vector to create names for 
#' @param fmt character: format string for \code{sprintf} (default: \code{"\%s_{\%.0f}"}
#' @param to character: base name of elements
#' @param index numeric: vector with indices  (default: \code{1:length(x)})
#'
#' @return character vector
#' @export
#'
#' @examples
#' x <- runif(5)
#' refer(x)                  # LaTeX default
#' refer(x, fmt="%s[%.0f]")  # R default
refer <- function(x, fmt="%s_{%.0f}", to=deparse(substitute(x)), index=1:length(x)) { 
  sprintf(fmt, to, index)
}