Restore options when existing vignettes.

README.Rmd

@@ -20,6 +20,7 @@ library(magrittr)
 library(cohortBuilder)
 library(shinyCohortBuilder)
 set.seed(123)
+old_opts <- options()
 options(tibble.width = Inf)
 iris <- tibble::as.tibble(iris)
 options("tibble.print_max" = 5)
@@ -147,3 +148,7 @@ Special thanks to:
 
 In a case you found any bugs, have feature request or general question please file an issue at the package [Github](https://github.com/r-world-devs/shinyCohortBuilder/issues).
 You may also contact the package author directly via email at [[email protected]](mailto:[email protected]).
+
+```{r, include = FALSE}
+options(old_opts)
+```

vignettes/package-options.Rmd

@@ -15,7 +15,7 @@ knitr::opts_chunk$set(
 library(shinyCohortBuilder)
 ```
 
-The goal of this document is to present what options can be specified while using `sinyCohortBuilder` and what effect do they have on the package operations.
+The goal of this document is to present what options can be specified while using `shinyCohortBuilder` and what effect do they have on the package operations.
 
 ## cb_verbose
 

vignettes/shinyCohortBuilder.Rmd

@@ -16,6 +16,7 @@ library(magrittr)
 library(cohortBuilder)
 library(shinyCohortBuilder)
 set.seed(123)
+old_opts <- options()
 options(tibble.width = Inf)
 iris <- tibble::as.tibble(iris)
 options("tibble.print_max" = 5)
@@ -314,3 +315,7 @@ No statistics displayed at all.
 Available with `cb_server(..., feedback = TRUE)`.
 
 When enabled, feedback plots (usually displaying data distribution) are show at each filter.
+
+```{r, include = FALSE}
+options(old_opts)
+```