r_App function

A shiny for equation of capillarity