andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 01:49:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

chore: updated Overview submenu to Overview and filter

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-08-27 11:13:17 +02:00
parent ca29847450
commit 898ba12856
No known key found for this signature in database
4 changed files with 26 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
NEWS.md
View file

@ -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 # FreesearchR 25.8.1

2
R/hosted_version.R
View file

@ -1 +1 @@
hosted_version <- function()'v25.8.1-250808' hosted_version <- function()'v25.8.1-250827'

3
R/ui_elements.R
View file

@ -160,10 +160,11 @@ ui_elements <- function(selection) {
icon = shiny::icon("pen-to-square"), icon = shiny::icon("pen-to-square"),
value = "nav_prepare", value = "nav_prepare",
bslib::nav_panel( bslib::nav_panel(
title = "Overview", title = "Overview and filter",
icon = shiny::icon("eye"), icon = shiny::icon("eye"),
value = "nav_prepare_overview", value = "nav_prepare_overview",
tags$h3("Overview and filtering"), tags$h3("Overview and filtering"),
# validation_ui("validation_col"),
fluidRow( fluidRow(
shiny::column( shiny::column(
width = 9, width = 9,

20
inst/apps/FreesearchR/app.R
View file

@ -3527,7 +3527,8 @@ dummy_Imports <- function() {
cardx::all_of(), cardx::all_of(),
parameters::ci(), parameters::ci(),
DT::addRow(), DT::addRow(),
bslib::accordion() bslib::accordion(),
NHANES::NHANES()
) )
# https://github.com/hadley/r-pkgs/issues/828 # 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 #### 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"), icon = shiny::icon("pen-to-square"),
value = "nav_prepare", value = "nav_prepare",
bslib::nav_panel( bslib::nav_panel(
title = "Overview", title = "Overview and filter",
icon = shiny::icon("eye"), icon = shiny::icon("eye"),
value = "nav_prepare_overview", value = "nav_prepare_overview",
tags$h3("Overview and filtering"), tags$h3("Overview and filtering"),
# validation_ui("validation_col"),
fluidRow( fluidRow(
shiny::column( shiny::column(
width = 9, 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 ######### Data filter
# IDEAFilter has the least cluttered UI, but might have a License issue # IDEAFilter has the least cluttered UI, but might have a License issue
# Consider using shinyDataFilter, though not on CRAN # Consider using shinyDataFilter, though not on CRAN