library(dplyr)
library(furrr)
library(purrr)
library(tidyr)
pluck_example <- water_df %>%
define_water_chain() %>%
pluck_water(parameter = "tot_co3")
pluck_example <- water_df %>%
define_water_chain() %>%
balance_ions_chain() %>%
pluck_water(input_waters = c("defined_water", "balanced_water"), parameter = c("na", "cl"))
plan(multisession, workers = 2) # Remove the workers argument to use all available compute
pluck_example <- water_df %>%
define_water_chain() %>%
pluck_water(parameter = c("ph", "alk"))
# Optional: explicitly close multisession processing
plan(sequential)
Run the code above in your browser using DataLab