doc: wrapping in if (interactive())

Author: ColinFay

R/add_dockerfiles.R

@@ -52,33 +52,33 @@ talk_once <- function(.f, msg = "") {
 #' @examples
 #' \donttest{
 #' # Add a standard Dockerfile
-#' if (interactive()) {
+#' if (interactive() & requireNamespace("dockerfiler")) {
 #'   add_dockerfile()
 #' }
 #' # Crete a 'deploy' folder containing everything needed to deploy
 #' # the golem using docker based on {renv}
-#' if (interactive()) {
+#' if (interactive() & requireNamespace("dockerfiler")) {
 #'   add_dockerfile_with_renv(
 #'     # lockfile = "renv.lock", # uncomment to use existing renv.lock file
 #'     output_dir = "deploy"
 #'   )
 #' }
 #' # Add a Dockerfile for ShinyProxy
-#' if (interactive()) {
+#' if (interactive() & requireNamespace("dockerfiler")) {
 #'   add_dockerfile_shinyproxy()
 #' }
 #'
 #' # Crete a 'deploy' folder containing everything needed to deploy
 #' # the golem with ShinyProxy using docker based on {renv}
-#' if (interactive()) {
+#' if (interactive() & requireNamespace("dockerfiler")) {
 #'   add_dockerfile_with_renv(
 #'     # lockfile = "renv.lock",# uncomment to use existing renv.lock file
 #'     output_dir = "deploy"
 #'   )
 #' }
 #'
 #' # Add a Dockerfile for Heroku
-#' if (interactive()) {
+#' if (interactive() & requireNamespace("dockerfiler")) {
 #'   add_dockerfile_heroku()
 #' }
 #' }

R/add_r_files.R

@@ -67,7 +67,6 @@ add_r_files <- function(
   }
 
   if (with_test) {
-    check_is_installed("usethis")
     usethis::use_test(
       basename(
         file_path_sans_ext(

R/modules_fn.R

@@ -257,7 +257,6 @@ use_module_test <- function(
 
   # We need both testthat, usethis & fs
   check_is_installed("testthat")
-  check_is_installed("usethis")
   check_is_installed("fs")
 
   old <- setwd(fs::path_abs(pkg))

R/test_helpers.R

@@ -8,9 +8,6 @@
 #' @return A testthat result.
 #' @export
 #' @rdname testhelpers
-#'
-#' @examples
-#' expect_shinytag(shiny::tags$span("1"))
 expect_shinytag <- function(object) {
   check_is_installed("testthat")
   check_is_installed("rlang")
@@ -25,8 +22,6 @@ expect_shinytag <- function(object) {
 
 #' @export
 #' @rdname testhelpers
-#' @examples
-#' expect_shinytaglist(shiny::tagList(1))
 expect_shinytaglist <- function(object) {
   check_is_installed("testthat")
   check_is_installed("rlang")

R/with_opt.R

@@ -64,38 +64,38 @@ with_golem_options <- function(
 #' @return The value of the option.
 #'
 #' @examples
-#' \dontrun{
 #'
 #' # Define and use golem_options
+#' if (interactive()) {
+#'   # 1. Pass parameters to `run_app`
 #'
-#' # 1. Pass parameters to `run_app`
+#'   # to set default value, edit run_app like this :
 #'
-#' # to set default value, edit run_app like this :
-#' run_app <- function(
+#'   run_app <- function(
 #'   title = "this",
 #'   content = "that"
-#' ) {
-#'   with_golem_options(
-#'     app = shinyApp(
-#'       ui = app_ui,
-#'       server = app_server
-#'     ),
-#'     golem_opts = list(
-#'       p1 = p1,
-#'       p3 = p3
+#'   ) {
+#'     with_golem_options(
+#'       app = shinyApp(
+#'         ui = app_ui,
+#'         server = app_server
+#'       ),
+#'       golem_opts = list(
+#'         p1 = p1,
+#'         p3 = p3
+#'       )
 #'     )
-#'   )
-#' }
+#'   }
 #'
-#' # 2. Get the values from the UI side
+#'   # 2. Get the values from the UI side
 #'
-#' h1(get_golem_options("title"))
+#'   h1(get_golem_options("title"))
 #'
-#' # 3. Get the value from the server-side
+#'   # 3. Get the value from the server-side
 #'
-#' output$param <- renderPrint({
-#'   paste("param p2 = ", get_golem_options("p2"))
-#' })
+#'   output$param <- renderPrint({
+#'     paste("param p2 = ", get_golem_options("p2"))
+#'   })
 #' }
 #'
 get_golem_options <- function(which = NULL) {