library(dplyr)
library(tidyr)
# Generates 1 row dataframe
example_df <- define_water(ph = 7, temp = 20, alk = 100) %>%
convert_water()
example_df <- water_df %>%
define_water_chain() %>%
mutate(to_dataframe = map(defined_water, convert_water)) %>%
unnest(to_dataframe) %>%
select(-defined_water)
water_defined <- define_water(7, 20, 50, 100, 80, 10, 10, 10, 10, tot_po4 = 1) %>%
convert_watermg()
Run the code above in your browser using DataLab