fix: non-breaking error during tests

insightsengineering · Aug 12, 2024 · 84c6ce4 · 84c6ce4
1 parent a81e794
commit 84c6ce4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dummy_functions.R b/R/dummy_functions.R
@@ -28,7 +28,7 @@ example_module <- function(label = "example teal module", datanames = "all", tra
           selected <- input$dataname
           if (identical(selected, "")) {
             selected <- restoreInput(session$ns("dataname"), NULL)
-          } else if (!(selected %in% datanames_rv())) {
+          } else if (isFALSE(selected %in% datanames_rv())) {
             selected <- datanames_rv()[1]
           }
           updateSelectInput(