Nothing
renv_methods_map <- function() {
list(
renv_path_normalize = c(
unix = "renv_path_normalize_unix",
win32 = "renv_path_normalize_win32"
),
renv_file_exists = c(
unix = "renv_file_exists_unix",
win32 = "renv_file_exists_win32"
),
renv_file_list_impl = c(
unix = "renv_file_list_impl_unix",
win32 = "renv_file_list_impl_win32"
),
renv_file_broken = c(
unix = "renv_file_broken_unix",
win32 = "renv_file_broken_win32"
)
)
}
renv_methods_init <- function() {
# get list of method mappings
methods <- renv_methods_map()
# determine appropriate lookup key for finding alternative
key <- if (renv_platform_windows()) "win32" else "unix"
alts <- map(methods, `[[`, key)
# update methods in namespace
envir <- renv_envir_self()
enumerate(alts, function(name, alt) {
replacement <- eval(parse(text = alt), envir = envir)
assign(name, replacement, envir = envir)
})
}
renv_methods_error <- function() {
call <- sys.call(sys.parent())
fmt <- "internal error: '%s()' not initialized in .onLoad()"
stopf(fmt, as.character(call[[1L]]), call. = FALSE)
}
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.