diff --git a/NEWS.md b/NEWS.md index fa4f823..9380ded 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,6 +1,10 @@ -# FreesearchR 25.8.2 - DEV +# FreesearchR 25.8.2 -- *NEW* preparing to automatically only show relevant tabs to simplify interface. NOT IMPLEMENTED YET +- *NEW* Including the [NHANES](https://cran.r-project.org/web/packages/NHANES/refman/NHANES.html#NHANES) dataset for experimentation. + +- *BUG* Improved JS to correctly handle menu drop downs on mobile devices + +- *DOCS* Updated "Prepare > Overview" to "Prepare > Overview and filter" to better reflect options. # FreesearchR 25.8.1 diff --git a/R/hosted_version.R b/R/hosted_version.R index a5356f8..9f7d5c7 100644 --- a/R/hosted_version.R +++ b/R/hosted_version.R @@ -1 +1 @@ -hosted_version <- function()'v25.8.1-250808' +hosted_version <- function()'v25.8.1-250827' diff --git a/R/ui_elements.R b/R/ui_elements.R index 1ef5503..7f851c4 100644 --- a/R/ui_elements.R +++ b/R/ui_elements.R @@ -160,10 +160,11 @@ ui_elements <- function(selection) { icon = shiny::icon("pen-to-square"), value = "nav_prepare", bslib::nav_panel( - title = "Overview", + title = "Overview and filter", icon = shiny::icon("eye"), value = "nav_prepare_overview", tags$h3("Overview and filtering"), + # validation_ui("validation_col"), fluidRow( shiny::column( width = 9, diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R index 1334db3..750e1f8 100644 --- a/inst/apps/FreesearchR/app.R +++ b/inst/apps/FreesearchR/app.R @@ -3527,7 +3527,8 @@ dummy_Imports <- function() { cardx::all_of(), parameters::ci(), DT::addRow(), - bslib::accordion() + bslib::accordion(), + NHANES::NHANES() ) # https://github.com/hadley/r-pkgs/issues/828 } @@ -4046,7 +4047,7 @@ simple_snake <- function(data){ #### Current file: /Users/au301842/FreesearchR/R//hosted_version.R ######## -hosted_version <- function()'v25.8.1-250808' +hosted_version <- function()'v25.8.1-250827' ######## @@ -8486,10 +8487,11 @@ ui_elements <- function(selection) { icon = shiny::icon("pen-to-square"), value = "nav_prepare", bslib::nav_panel( - title = "Overview", + title = "Overview and filter", icon = shiny::icon("eye"), value = "nav_prepare_overview", tags$h3("Overview and filtering"), + # validation_ui("validation_col"), fluidRow( shiny::column( width = 9, @@ -10963,6 +10965,18 @@ server <- function(input, output, session) { }) + # validation_server(id = "validation_col", + # data = purrr::map2( + # .x = validation_lib()[1], + # .y = list( + # list( + # x = + # reactive(rv$data), + # y = + # reactive(rv$data_variables) + # )), + # make_validation)) + ######### Data filter # IDEAFilter has the least cluttered UI, but might have a License issue # Consider using shinyDataFilter, though not on CRAN