#' Is the directory a golem-based app?
#'
#' Trying to guess if `path` is a golem-based app.
#'
#' @param path Path to the directory to check.
#' Defaults to the current working directory.
#'
#' @return A boolean, `TRUE` if the directory is a golem-based app, `FALSE` else.
#'
#' @export
#'
#' @examples
#' is_golem()
is_golem <- function(path = getwd()) {
files_from_shiny_example <- grep(
"^(?!REMOVEME).*",
list.files(
system.file("shinyexample", package = "golem"),
recursive = TRUE
),
perl = TRUE,
value = TRUE
)
files_from_shiny_example <- grep(
"favicon.ico",
files_from_shiny_example,
perl = TRUE,
value = TRUE,
invert = TRUE
)
all(
files_from_shiny_example %in% list.files(path, recursive = TRUE)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.