Nothing
make_po_dir <- function(pkg = ".", verbose = getOption("verbose")) {
pkg <- as.package(pkg)
po_dir <- file.path(pkg$path, "po")
if (dir.exists(po_dir)) {
return(po_dir)
}
if (isTRUE(verbose)) {
message(sprintf("Creating the directory", "'po'"))
}
dir.create(po_dir, FALSE)
return(po_dir)
}
template_path <- function(pkg = ".", domain = "R") {
pkg <- as.package(pkg)
file.path(pkg$path, "po", paste0(if(domain %in% c("r","R")) "R-" else NULL, pkg$package, ".pot"))
}
translation_path <- function(language, pkg = ".", domain = "R") {
pkg <- as.package(pkg)
file.path(pkg$path, "po", paste0(if(domain %in% c("R", "r")) "R-" else NULL, language, ".po"))
}
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.