support older roxygen2

insightsengineering · Sep 23, 2024 · 5394e30 · 5394e30
1 parent ae3992e
commit 5394e30
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
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
     #'