add .Rproj file, uncomment Abs_meas data_id

Paper_MAC_dashboard.Rproj

+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

app.R

@@ -184,7 +184,7 @@ server <- function(input, output) {
                                   ),
                                   data_id = case_when(
                                     input$plot_category == "Aerosol_type" ~ Aerosol_type_red,
-                                    # input$plot_category == "Abs_meas" ~ Abs_ref_red,
+                                    input$plot_category == "Abs_meas" ~ Abs_ref_red,
                                     input$plot_category == "Mass_meas" ~ Mass_ref_red
                                   ),
                                   tooltip = paste(Reference_study, "\n", round(MAC_m2g_550, digits = 2), " m²/g")),