- Temporarily disabled SliderInput for minimum power as it is not wor…

…king.

- Added and function to filter by minimum power (if the value is bigger than .05)
- commented-out function because I cannot get the app to run locally
concerns #65

inst/fred_explorer/server.R

@@ -35,6 +35,13 @@ server <- function(input, output, session) {
       df_temp <- df_temp[df_temp$source == input$source, ]
     }
 
+    # # minpower
+    # if (input$minpower == .05) {
+    #   df_temp <- df_temp
+    # } else {
+    #   df_temp <- df_temp[df_temp$power >= input$source, ]
+    # }
+
     # validated
     if (input$validated == TRUE) {
       df_temp <- df_temp[!is.na(df_temp$validated), ]

inst/fred_explorer/ui.R

@@ -45,7 +45,7 @@ sidebar_contents <- sidebar(
   padding = 10,
   width = 300,
   div(id = "sidebar-note", style = "color: red; font-weight: bold; display: none;", "Filtering is disabled for this view, as the full dataset is used."),
-  sliderInput("minpower", "Minimum Power", min = .05, max = .999, value = .05),
+  # sliderInput("minpower", "Minimum Power", min = .05, max = .999, value = .05),
   selectInput("source", "Browse Large-Scale Projects:",
               choices = large_scale_project_choices,
               selected = "All studies"