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 efd522f9..5ad8070e 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 @@ -112,7 +112,7 @@ df_as_vector <- function(x = df) { Then, you just supply the name of the function to evaluate with default arguments. -```{r} +```{r, eval=FALSE} out_nix_1_2 <- with_nix( expr = function() df_as_vector, # provide name of function program = "R", @@ -124,7 +124,7 @@ out_nix_1_2 <- with_nix( It yields the same results. -```{r} +```{r, eval=FALSE} Reduce(f = identical, list(out_system_1, out_nix_1, out_nix_1_2)) ``` 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 746e3de0..b57b2d75 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 @@ -137,7 +137,7 @@ df_as_vector <- function(x = df) { Then, you just supply the name of the function to evaluate with default arguments. -```{r} +```{r eval = FALSE} out_nix_1_2 <- with_nix( expr = function() df_as_vector, # provide name of function program = "R", @@ -150,7 +150,7 @@ out_nix_1_2 <- with_nix( It yields the same results. -```{r} +```{r eval = FALSE} Reduce(f = identical, list(out_system_1, out_nix_1, out_nix_1_2)) ```