water <- define_water(ph = 7, temp = 25, alk = 5) %>%
opensys_ph()
# \donttest{
example_df <- water_df %>%
define_water_df() %>%
opensys_ph_df(
input_water = "defined", output_water = "opensys",
partialpressure = 10^-4, pluck_cols = TRUE
)
# }
Run the code above in your browser using DataLab