diff --git a/DESCRIPTION b/DESCRIPTION index 6f33e05..2857e1c 100644 --- 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 index 1ffe962..75ee6cd 100644 --- 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 index ace91b5..32a17cf 100644 --- 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 #'