Fix verdepcheck (#4)

https://github.com/insightsengineering/roxy.shinylive/actions/workflows/scheduled.yaml?query=branch%3Afix_verdepcheck
insightsengineering · Sep 30, 2024 · d4b418b · d4b418b
1 parent 4c631d5
commit d4b418b
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -15,13 +15,13 @@ Depends:
     R (>= 4.0)
 Imports:
     glue,
-    jsonlite (>= 0.9.4),
+    jsonlite (>= 1.8.6),
     lzstring,
-    roxygen2 (>= 7.1.1),
+    roxygen2 (>= 7.2.0),
     stringr (>= 0.4)
 Suggests:
-    pkgdown (>= 1.2.0),
-    testthat (>= 3.0.4),
+    pkgdown (>= 2.0.0),
+    testthat (>= 3.1.5),
     withr (>= 2.4.3)
 Config/Needs/verdepcheck: tidyverse/glue, jeroen/jsonlite,
     lzstring=parmsam/lzstring-r, r-lib/roxygen2, tidyverse/stringr,

diff --git a/R/tag_examplesShinylive.R b/R/tag_examplesShinylive.R
@@ -132,7 +132,7 @@ roxy_tag_parse.roxy_tag_examplesShinylive <- function(x) {
   }
 
   # not elegant but this is the most efficient way to access sibling tags
-  tokens <- get("tokens", envir = parent.frame(3L))
+  tokens <- dynGet("tokens")
 
   tags_examples <- Filter(function(x) x$tag %in% c("examples", "examplesIf"), tokens)
 

diff --git a/tests/testthat/test-tag_examplesShinylive.R b/tests/testthat/test-tag_examplesShinylive.R
@@ -1,4 +1,5 @@
 test_that("examplesShinylive tag - errors - missing @examples", {
+  skip_if_not(packageVersion("roxygen2") >= "7.3.0")
   text <- "
     #' This is a title
     #'
@@ -240,6 +241,7 @@ test_that("examplesShinylive tag - keywords - {{tags_examples}}", {
 })
 
 test_that("examplesShinylive tag - keywords - error when parsing with glue", {
+  skip_if_not(packageVersion("roxygen2") >= "7.3.0")
   text <- "
     #' This is a title
     #'