water_defined <- define_water(7, 20, 50, 100, 80, 10, 10, 10, 10) %>%
balance_ions()
water_defined <- define_water(7, 20, 50, tot_hard = 150) %>%
balance_ions(anion = "so4")
example_df <- water_df %>%
define_water_chain() %>%
balance_ions_chain(anion = "so4", cation = "ca")
# \donttest{
# Initialize parallel processing
library(furrr)
plan(multisession, workers = 2) # Remove the workers argument to use all available compute
example_df <- water_df %>%
define_water_chain() %>%
balance_ions_chain()
# Optional: explicitly close multisession processing
plan(sequential)
# }
Run the code above in your browser using DataLab