#' Open a file
#'
#' Opens the specified file using the default program for that file type
#'
#' @param path a file path
#' @export
view_file <- function(path) {
if(is.na(path)) {
warning("ignoring NA path")
return()
}
switch(
.Platform$OS.type,
'windows'=suppressWarnings(shell(paste0("explorer ", gsub("/", "\\", path, fixed=TRUE)), intern=TRUE)), # https://stackoverflow.com/questions/11031317/open-windows-explorer-with-specific-path-using-system-command
'unix'=system(paste0("open ", path))) # https://stackoverflow.com/questions/11780810/launch-mac-finder-window-with-specified-path
invisible()
}
#' Open a folder or a file's folder
#'
#' Opens the specified folder, or the containing folder of the specified file,
#' in the file explorer
#'
#' @param path a file path
#' @export
view_folder <- function(path) {
is_dir <- dir.exists(path)
if(is_dir) {
view_file(path)
} else {
view_file(dirname(path))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.