trunc_string <- function (x, maxlen = 20, justify = "left") { toolong <- nzchar(x) > maxlen maxwidth <- ifelse(toolong, maxlen - 3, maxlen) chopx <- substr(x, 1, maxwidth) lenx <- length(x) for (i in 1:length(x)) if (toolong[i]) chopx[i] <- paste(chopx[i], "...", sep = "") return(formatC(chopx, width = maxlen, flag = ifelse(justify == "left", "-", " "))) } parse_query <- function(query) { params <- vapply(stri_split_regex(query, "&", omit_empty=TRUE)[[1]], stri_split_fixed, "=", 2, simplify=TRUE, FUN.VALUE=character(2)) purrr::set_names(as.list(curl::curl_unescape(params[2,])), curl::curl_unescape(params[1,])) } check_wait <- function(wait) { if (wait<0) { message("The 'wait' parameter cannot be less than 0; auto-changing it to 0") wait <- 0 } else if (wait>10) { message("The 'wait' parameter cannot be greater than 10 in render_ calls; auto-changing it to 10") message("Use the direct lua interface or lua DSL wrapper functions to set higher 'wait' values.") wait <- 10 } wait }