inst/doc/z-advanced-topic-running-r-or-shell-code-in-nix-from-r.R

In rix: Reproducible Data Science Environments with 'Nix'

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----parsermd-chunk-3, eval = F-----------------------------------------------
# library("rix")
# 
# path_env_1 <- file.path(".", "_env_1_R-4-1-3")
# 
# rix(
#   r_ver = "4.1.3",
#   overwrite = TRUE,
#   project_path = path_env_1
# )

## ----eval=FALSE---------------------------------------------------------------
# df <- data.frame(a = 1:3, b = 4:6)
# as.vector(x = df, mode = "list")
# #> $a
# #> [1] 1 2 3
# #>
# #> $b
# #> [1] 4 5 6

## ----eval = FALSE-------------------------------------------------------------
# df_as_vector <- function(x) {
#   out <- as.vector(x = x, mode = "list")
#   return(out)
# }
# (out_system_1 <- df_as_vector(x = df))
# #> $a
# #> [1] 1 2 3
# #>
# #> $b
# #> [1] 4 5 6

## ----parsermd-chunk-7, eval = FALSE-------------------------------------------
# # now run it in `nix-shell`; `with_nix()` takes care
# # of exporting global objects of `df_as_vector` recursively
# out_nix_1 <- with_nix(
#   expr = function() df_as_vector(x = df), # wrap to avoid evaluation
#   program = "R",
#   project_path = path_env_1,
#   message_type = "simple" # you can do `"verbose"`, too
# )
# 
# # compare results of custom codebase with indentical
# # inputs and different software environments
# identical(out_system_1, out_nix_1)
# 
# # should return `FALSE` if your system's R versions in
# # current interactive R session is R >= 4.2.0

## ----eval = FALSE-------------------------------------------------------------
# df_as_vector <- function(x = df) {
#   out <- as.vector(x = x, mode = "list")
#   return(out)
# }

## ----parsermd-chunk-9, eval = FALSE-------------------------------------------
# out_nix_1_b <- with_nix(
#   expr = df_as_vector, # provide name of function
#   program = "R",
#   project_path = path_env_1,
#   message_type = "simple" # you can do `"verbose"`, too
# )

## ----parsermd-chunk-10, eval = FALSE------------------------------------------
# Reduce(f = identical, list(out_nix_1, out_nix_1_b))

## ----eval = F-----------------------------------------------------------------
# library("rix")
# path_env_1_2 <- file.path(".", "_env_1_2_R-4-2-0")
# 
# rix(
#   r_ver = "4.2.0",
#   overwrite = TRUE,
#   project_path = path_env_1_2,
#   shell_hook = "R"
# )
# 
# list.files(path_env_1_2)

## ----parsermd-chunk-13, eval = FALSE------------------------------------------
# # current Nix-R session with R 4.1.3
# df_as_vector <- function(x) {
#   out <- as.vector(x = x, mode = "list")
#   return(out)
# }
# (out_nix_1 <- df_as_vector(x = df))

## ----parsermd-chunk-14, eval = FALSE------------------------------------------
# out_nix_1_2 <- with_nix(
#   expr = function() df_as_vector(x = df),
#   program = "R",
#   project_path = path_env_1_2,
#   message_type = "simple" # you can do `"verbose"`, too
# )

## ----parsermd-chunk-15, eval = FALSE------------------------------------------
# identical(out_nix_1, out_nix_1_2)
# # yields FALSE

## ----parsermd-chunk-16, eval = FALSE------------------------------------------
# stringr::str_subset(c("", "a"), "")

## ----parsermd-chunk-17, eval = FALSE------------------------------------------
# out_system_stringr <- tryCatch(
#   expr = {
#     stringr::str_subset(c("", "a"), "")
#   },
#   error = function(e) NULL
# )

## ----eval = F-----------------------------------------------------------------
# library("rix")
# 
# path_env_stringr <- file.path(".", "_env_stringr_1.4.1")
# 
# rix(
#   r_ver = "4.3.1",
#   r_pkgs = "stringr@1.4.1",
#   overwrite = TRUE,
#   project_path = path_env_stringr
# )

## ----parsermd-chunk-20, eval = FALSE------------------------------------------
# out_nix_stringr <- with_nix(
#   expr = function() stringr::str_subset(c("", "a"), ""),
#   program = "R",
#   project_path = path_env_stringr,
#   message_type = "simple"
# )

## ----parsermd-chunk-21, eval = FALSE------------------------------------------
# identical(out_system_stringr, out_nix_stringr)

## ----parsermd-chunk-22, eval = FALSE------------------------------------------
# library("rix")
# 
# path_env_arrow <- file.path("env_arrow")
# 
# rix(
#   r_ver = "4.1.1",
#   r_pkgs = c("dplyr", "arrow"),
#   overwrite = TRUE,
#   project_path = path_env_arrow
# )

## ----parsermd-chunk-23, eval = FALSE------------------------------------------
# library(arrow)
# library(dplyr)
# 
# arrow_cars <- arrow_table(cars)
# 
# arrow_cars %>%
#   filter(speed > 10) %>%
#   as.data.frame()

## ----parsermd-chunk-24, eval = FALSE------------------------------------------
# arrow_script <- function() {
#   library(arrow)
#   library(dplyr)
# 
#   arrow_cars <- arrow_table(cars)
# 
#   arrow_cars %>%
#     filter(speed > 10) %>%
#     as.data.frame()
# }

## ----parsermd-chunk-25, eval = FALSE------------------------------------------
# out_nix_arrow <- with_nix(
#   expr = function() arrow_script(),
#   program = "R",
#   project_path = path_env_arrow,
#   message_type = "simple"
# )