## For a specific reaction
unbalanced("Phosphoenolpyruvate[c_n] => ATP[c_n] + Pyruvate[c_n] + Water[c_n]")
# [1] TRUE
unbalanced("Phosphoenolpyruvate[c_n] => ATP[c_n] + Pyruvate[c_n]", show.formulas = TRUE)
# [,1]
# [1,] "Phosphoenolpyruvate[c_n] => ATP[c_n] + Pyruvate[c_n]"
# [,2]
# [1,] "1 C3H4O6P => 1 C10H16N5O13P3 + 1 C3H3O3"
Run the code above in your browser using DataLab