Nothing
#' If on Windows, hide a file
#'
#' @param fn the file path + name
#'
#' @return `invisible(NULL)`
#'
#' @keywords internal
util_hide_file_windows <- function(fn) {
if (.Platform$OS.type != "windows") return();
fn <- normalizePath(fn)
if (file.exists(fn)) {
system(sprintf("attrib +h %s", shQuote(fn, type = "cmd")))
}
invisible(NULL)
}
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.