Nothing
test_that("properties can be read successfully", {
data <- '# This is a comment.\nKey: Value'
path <- renv_scope_tempfile("renv-properties-")
writeLines(data, con = path)
# trim whitespace by default
props <- renv_properties_read(path = path)
expect_identical(props, list(Key = "Value"))
# without trimming whitespace
props <- renv_properties_read(path = path, trim = FALSE)
expect_identical(props, list(Key = " Value"))
})
test_that("quoted properties are unquoted", {
props <- renv_properties_read(
path = "resources/properties.txt",
delimiter = "=",
dequote = TRUE,
trim = TRUE
)
expected <- list(
Key1 = "Value 1",
Key2 = 'Value "2"',
Key3 = "Value '3'"
)
expect_identical(props[names(expected)], expected)
expect_equal(props$Key4, "This value spans multiple lines.")
})
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.