uncomment dataid for abs meas plot

app.R

@@ -209,8 +209,6 @@ server <- function(input, output) {
               axis.text.x = element_text(size = 12),
               axis.title.x = element_text(size=16),
               axis.title.y = element_text(size=16),
-              # panel.grid.major.y = element_blank(),
-              # panel.grid.minor.y = element_blank(),
               strip.text.y = element_text(angle = 0, size = 16),
               strip.background = element_rect(colour="#FFFFFF", fill="#f7f7f9"),
               legend.background = element_rect(fill = "#f7f7f9", colour = "#FFFFFF"),
@@ -237,7 +235,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, digits = 2), " m²/g")),