app mk III: use dplyr, add a pollutant menu, an average threshold, and floor round last month for date start