diff --git a/dev/running_r_or_shell_code_in_nix_from_r.Rmd b/dev/running_r_or_shell_code_in_nix_from_r.Rmd
index 0008bc45..e6e67ac2 100644
--- a/dev/running_r_or_shell_code_in_nix_from_r.Rmd
+++ b/dev/running_r_or_shell_code_in_nix_from_r.Rmd
@@ -84,11 +84,6 @@ Then, we will evaluate this test code through a `nix-shell` R session. This adds
 This approach guarantees reproducible side effects and effectively streams messages and errors into the R session. Thereby, the {sys} package facilitates capturing standard outputs and errors as text output messages.
 
 ```{r, eval=FALSE}
-df_as_vector <- function(x) {
-  out <- as.vector(x = x, mode = "list")
-  return(out)
-}
-
 # now run it in `nix-shell`; `with_nix()` takes care
 # of exporting global objects of `df_as_vector` recursively
 out_nix <- with_nix(
diff --git a/vignettes/running-r-or-shell-code-in-nix-from-r.Rmd b/vignettes/running-r-or-shell-code-in-nix-from-r.Rmd
index bb52de34..6a81ae7d 100644
--- a/vignettes/running-r-or-shell-code-in-nix-from-r.Rmd
+++ b/vignettes/running-r-or-shell-code-in-nix-from-r.Rmd
@@ -107,11 +107,6 @@ This approach guarantees reproducible side effects and effectively streams messa
 
 
 ```{r eval = FALSE}
-df_as_vector <- function(x) {
-  out <- as.vector(x = x, mode = "list")
-  return(out)
-}
-
 # now run it in `nix-shell`; `with_nix()` takes care
 # of exporting global objects of `df_as_vector` recursively
 out_nix <- with_nix(