Review teal.slice documentation before release (#243)

Fixes #[238](#238) --------- Co-authored-by: Blazewicz <[email protected]> Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Co-authored-by: 27856297+dependabot-preview[bot]@users.noreply.github.com <27856297+dependabot-preview[bot]@users.noreply.github.com>
insightsengineering · Apr 13, 2023 · d501b66 · d501b66
1 parent d0e0dc3
commit d501b66
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 13 deletions.
diff --git a/R/calls_combine_by.R b/R/calls_combine_by.R
@@ -13,12 +13,10 @@
 #' @examples
 #' \dontrun{
 #' calls <- list(
-#'   call_condition_choice("SEX", "F"),
-#'   call_condition_range("AGE", c(20, 50)),
-#'   call_condition_choice("ARM", "ARM: A"),
-#'   call_condition_logical("SURV", TRUE)
+#'   quote(SEX == "F"), # subsetting on factor
+#'   quote(AGE >= 20 & AGE <= 50), # subsetting on range
+#'   quote(!SURV) # subsetting on logical
 #' )
-#' calls <- lapply(calls, str2lang)
 #' calls_combine_by(calls, "&")
 #' }
 #' @return a combined `call`

diff --git a/man/calls_combine_by.Rd b/man/calls_combine_by.Rd
diff --git a/vignettes/teal-slice.Rmd b/vignettes/teal-slice.Rmd
@@ -95,9 +95,11 @@ if (interactive()) {
 The `FilteredData` object (`datasets` above) provides additional methods (such as `datasets$get_call(<dataname>)` to get the code used to filter the data) and is also possible to programmatically set the state of the filter panel using the `set_filter_state` function for example:
 
 ```{r, eval=FALSE}
-set_filter_state(
-  datasets,
-  list(iris = list(Species = list(selected = c("setosa", "versicolor"))))
+shiny::isolate(
+  set_filter_state(
+    datasets,
+    list(iris = list(Species = list(selected = c("setosa", "versicolor"))))
+  )
 )
 ```