fix scheduled jobs (#263)

Closes #260

---------

Signed-off-by: Marcin <[email protected]>
Co-authored-by: Lluís Revilla <[email protected]>

Author: m7pr

DESCRIPTION

@@ -29,14 +29,14 @@ Imports:
     methods,
     rlang (>= 1.0.0),
     shiny (>= 1.6.0),
-    shinyjs,
+    shinyjs (>= 2.1.0),
     shinyvalidate (>= 0.1.3),
     stats,
     teal.data (>= 0.7.0),
     teal.logger (>= 0.3.1),
     teal.widgets (>= 0.4.3),
     tidyr (>= 1.0.0),
-    tidyselect,
+    tidyselect (>= 1.2.1),
     utils
 Suggests:
     bslib (>= 0.8.0),

tests/testthat/test-data_extract_module.R

@@ -25,10 +25,10 @@ testthat::test_that("Single filter", {
   testthat::expect_silent(filter <- input$children[[1]])
   testthat::expect_equal(filter$children[[1]]$children[[1]]$attribs, list(class = "shinyjs-hide"))
 
-  testthat::expect_equal(
-    filter$children[[1]]$children[[2]]$children[[3]]$children[[1]]$children[[1]]$children[[2]]$attribs$multiple,
-    "multiple"
-  )
+  tq <- htmltools::tagQuery(filter)
+  filter_options <- tq$find("#filter1-vals")$selectedTags()
+  testthat::expect_length(filter_options, 1L)
+  testthat::expect_equal(filter_options[[1]]$attribs$multiple, "multiple")
 
   # more tests - check levels of filtered variables
   # check also colummns selected