Nothing
renv_properties_read <- function(path = NULL,
text = NULL,
delimiter = ":",
dequote = TRUE,
trim = TRUE)
{
renv_scope_options(warn = -1L)
# read file
contents <- paste(text %||% readLines(path, warn = FALSE), collapse = "\n")
# split on newlines; allow spaces to continue a value
parts <- strsplit(contents, "\\n(?=\\S)", perl = TRUE)[[1L]]
# remove comments and blank lines
parts <- grep("^\\s*(?:#|$)", parts, perl = TRUE, value = TRUE, invert = TRUE)
# split into key / value pairs
index <- regexpr(delimiter, parts, fixed = TRUE)
keys <- substring(parts, 1L, index - 1L)
vals <- substring(parts, index + 1L)
# trim whitespace when requested
if (trim) {
keys <- trimws(keys)
vals <- gsub("\n\\s*", " ", trimws(vals), perl = TRUE)
}
# strip quotes if requested
if (dequote) {
keys <- dequote(keys)
vals <- dequote(vals)
}
# return as named list
storage.mode(vals) <- "list"
names(vals) <- keys
vals
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.