diff --git a/R/calls_combine_by.R b/R/calls_combine_by.R
index ffdcab1f8..1d5d1ea35 100644
--- 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
index d16d52ab6..0934f3179 100644
--- a/man/calls_combine_by.Rd
+++ b/man/calls_combine_by.Rd
@@ -25,12 +25,10 @@ Combine list of calls by specific operator
 \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, "&")
 }
 }
diff --git a/vignettes/teal-slice.Rmd b/vignettes/teal-slice.Rmd
index 0485af09a..4b403bc86 100644
--- 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"))))
+  )
 )
 ```