R Shiny app to view Lumens vs Distance subset by user input Power