Skips some tests if lattice pkg is not installed

DESCRIPTION

@@ -62,4 +62,4 @@ Encoding: UTF-8
 Language: en-US
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

R/get_dt_rows.R

@@ -9,7 +9,7 @@
 #'
 #' @return (`shiny::tagList`) A `shiny tagList`.
 #'
-#' @examplesIf require("DT")
+#' @examplesIf requireNamespace("DT", quietly = TRUE)
 #' library(shiny)
 #' library(DT)
 #'

R/plot_with_settings.R

@@ -106,7 +106,7 @@ plot_with_settings_ui <- function(id) {
 #'
 #' @return A `shiny` module.
 #'
-#' @examples
+#' @examplesIf requireNamespace("lattice", quietly = TRUE)
 #' # Example using a reactive as input to plot_r
 #' library(shiny)
 #' library(ggplot2)

tests/testthat/test-plot_with_settings.R

@@ -64,7 +64,10 @@ plot_funs <- list(
     print(ggplot2::ggplot(mtcars, ggplot2::aes(mpg, wt)) +
       ggplot2::geom_point())
   },
-  function() lattice::densityplot(1),
+  function() {
+    testthat::skip_if_not_installed("lattice")
+    lattice::densityplot(1)
+  },
   function() {
     ggplot2::ggplotGrob(
       ggplot2::ggplot(mtcars, ggplot2::aes(mpg, wt)) +
@@ -394,6 +397,7 @@ testthat::test_that("plot_with_settings_srv set dimensions and download a png fi
 
 testthat::test_that("plot_with_settings_srv set dimensions and download a png file - trellis", {
   testthat::skip_if_not_installed("png")
+  testthat::skip_if_not_installed("lattice")
 
   plot_with_settings_args$plot_r <- function() {
     lattice::densityplot(1)