R/range.R

In jqr: Client for 'jq', a 'JSON' Processor

#' Produce range of numbers
#'
#' @export
#' @param x Input, single number or number range.
#' @param array (logical) Create array. Default: \code{FALSE}
#' @examples
#' 2:4 %>% rangej
#' 2:1000 %>% rangej
#' 1 %>% rangej
#' 4 %>% rangej
rangej <- function(x, array = FALSE) {
  pipe_autoexec(toggle = TRUE)
  x <- get_jq_seq(x, array)
  structure(list(data = "null", args = list(structure(x, type = "range"))), class = "jqr")
}

get_jq_seq <- function(y, z) {
  tmp <- as.character(y)
  if (length(tmp) == 1) {
    tmp2 <- sprintf("range(%s)", tmp)
  } else {
    tmp2 <- sprintf("range(%s)", paste(tmp[1], tmp[length(tmp)], collapse = "", sep = ";"))
  }
  if (z) {
    sprintf("[%s]", tmp2)
  } else {
    tmp2
  }
}