diff --git a/inst/shiny/WQReviewGUI/server_seasonal.R b/inst/shiny/WQReviewGUI/server_seasonal.R index ef0d4b5..d6b622d 100644 --- a/inst/shiny/WQReviewGUI/server_seasonal.R +++ b/inst/shiny/WQReviewGUI/server_seasonal.R @@ -13,7 +13,6 @@ output$qwseasonalPlot <- renderPlot({ site.selection = as.character(input$siteSel_seasonal), plotparm = as.character(input$parmSel_seasonal), facet = input$facetSel_seasonal, - show.q = FALSE, show.smooth = input$fit_seasonal, highlightrecords = c(reports$chemFlagTable$RECORD_NO[which(!is.na(reports$chemFlagTable$BadCB_30.21))], reports$resultFlagTable$RECORD_NO[which(reports$resultFlagTable$PARM_CD == as.character(input$parmSel_seasonal))]), @@ -29,7 +28,6 @@ output$qwseasonalPlot_zoom <- renderPlot({ site.selection = as.character(input$siteSel_seasonal), plotparm = as.character(input$parmSel_seasonal), facet = input$facetSel_seasonal, - show.q = FALSE, show.smooth = input$fit_seasonal, highlightrecords = c(reports$chemFlagTable$RECORD_NO[which(!is.na(reports$chemFlagTable$BadCB_30.21))], reports$resultFlagTable$RECORD_NO[which(reports$resultFlagTable$PARM_CD == as.character(input$parmSel_seasonal))]),