kopia lustrzana https://git.sr.ht/~hrbrmstr/splashr
Nie możesz wybrać więcej, niż 25 tematów
Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
28 wiersze
1.1 KiB
28 wiersze
1.1 KiB
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
|
|
}
|