mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 01:49:39 +02:00
JS in separate file to autohide dropdowns on navigation - new dev version
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
This commit is contained in:
parent
7a76a83dba
commit
5c8d84fccd
10 changed files with 165 additions and 66 deletions
|
|
@ -9,7 +9,7 @@ type: software
|
|||
license: AGPL-3.0-or-later
|
||||
title: 'FreesearchR: A free and open-source browser based data analysis tool for researchers
|
||||
with publication ready output'
|
||||
version: 25.7.1
|
||||
version: 25.7.2
|
||||
doi: 10.5281/zenodo.14527429
|
||||
identifiers:
|
||||
- type: url
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
Package: FreesearchR
|
||||
Title: A free and open-source browser based data analysis tool for researchers with publication ready output
|
||||
Version: 25.7.1
|
||||
Version: 25.7.2
|
||||
Authors@R: c(
|
||||
person("Andreas Gammelgaard", "Damsbo",email="agdamsbo@clin.au.dk", role = c("aut", "cre"),
|
||||
comment = c(ORCID = "0000-0002-7559-1154")),
|
||||
|
|
|
|||
6
NEWS.md
6
NEWS.md
|
|
@ -1,4 +1,8 @@
|
|||
# FreesearchR 25.7.1 - DEV
|
||||
# FreesearchR 25.7.2 - DEV
|
||||
|
||||
- *FIX* refining hiding drop downs. All JavaScript is now in separate file. Coded with GAI help from claude.ai.
|
||||
|
||||
# FreesearchR 25.7.1
|
||||
|
||||
- *NEW* UI overhaul and navigation update. The interface is simplified to clearly show the relationship between panels and sub-items by abandoning multiple levels on panel to instead show a drop-down menu. This also results in simplified sidebar menus with room to add more controls in the future.
|
||||
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
app_version <- function()'25.7.1'
|
||||
app_version <- function()'25.7.2'
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
hosted_version <- function()'v25.7.1-250703'
|
||||
hosted_version <- function()'v25.7.2-250703'
|
||||
|
|
|
|||
BIN
R/sysdata.rda
BIN
R/sysdata.rda
Binary file not shown.
22
SESSION.md
22
SESSION.md
|
|
@ -15,7 +15,7 @@
|
|||
|rstudio |2025.05.0+496 Mariposa Orchid (desktop) |
|
||||
|pandoc |3.6.4 @ /opt/homebrew/bin/ (via rmarkdown) |
|
||||
|quarto |1.7.30 @ /usr/local/bin/quarto |
|
||||
|FreesearchR |25.7.1.250703 |
|
||||
|FreesearchR |25.7.2.250703 |
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
|
@ -26,6 +26,8 @@
|
|||
|apexcharter |0.4.4 |2024-09-06 |CRAN (R 4.4.1) |
|
||||
|askpass |1.2.1 |2024-10-04 |CRAN (R 4.4.1) |
|
||||
|assertthat |0.2.1 |2019-03-21 |CRAN (R 4.4.1) |
|
||||
|attachment |0.4.5 |2025-03-14 |CRAN (R 4.4.1) |
|
||||
|attempt |0.3.1 |2020-05-03 |CRAN (R 4.4.1) |
|
||||
|backports |1.5.0 |2024-05-23 |CRAN (R 4.4.1) |
|
||||
|base64enc |0.1-3 |2015-07-28 |CRAN (R 4.4.1) |
|
||||
|bayestestR |0.15.3 |2025-04-28 |CRAN (R 4.4.1) |
|
||||
|
|
@ -43,6 +45,7 @@
|
|||
|cardx |0.2.4 |2025-04-12 |CRAN (R 4.4.1) |
|
||||
|caTools |1.18.3 |2024-09-04 |CRAN (R 4.4.1) |
|
||||
|cellranger |1.1.0 |2016-07-27 |CRAN (R 4.4.0) |
|
||||
|cffr |1.2.0 |2025-01-25 |CRAN (R 4.4.1) |
|
||||
|checkmate |2.3.2 |2024-07-29 |CRAN (R 4.4.0) |
|
||||
|class |7.3-23 |2025-01-01 |CRAN (R 4.4.1) |
|
||||
|classInt |0.4-11 |2025-01-08 |CRAN (R 4.4.1) |
|
||||
|
|
@ -52,7 +55,9 @@
|
|||
|colorspace |2.1-1 |2024-07-26 |CRAN (R 4.4.1) |
|
||||
|commonmark |1.9.5 |2025-03-17 |CRAN (R 4.4.1) |
|
||||
|crayon |1.5.3 |2024-06-20 |CRAN (R 4.4.1) |
|
||||
|credentials |2.0.2 |2024-10-04 |CRAN (R 4.4.1) |
|
||||
|crosstalk |1.2.1 |2023-11-23 |CRAN (R 4.4.0) |
|
||||
|curl |6.2.2 |2025-03-24 |CRAN (R 4.4.1) |
|
||||
|data.table |1.17.0 |2025-02-22 |CRAN (R 4.4.1) |
|
||||
|datamods |1.5.3 |2024-10-02 |CRAN (R 4.4.1) |
|
||||
|datawizard |1.0.2 |2025-03-24 |CRAN (R 4.4.1) |
|
||||
|
|
@ -61,6 +66,7 @@
|
|||
|devtools |2.4.5 |2022-10-11 |CRAN (R 4.4.0) |
|
||||
|DHARMa |0.4.7 |2024-10-18 |CRAN (R 4.4.1) |
|
||||
|digest |0.6.37 |2024-08-19 |CRAN (R 4.4.1) |
|
||||
|dockerfiler |0.2.5 |2025-05-07 |CRAN (R 4.4.1) |
|
||||
|doParallel |1.0.17 |2022-02-07 |CRAN (R 4.4.0) |
|
||||
|dplyr |1.1.4 |2023-11-17 |CRAN (R 4.4.0) |
|
||||
|DT |0.33 |2024-04-04 |CRAN (R 4.4.0) |
|
||||
|
|
@ -84,16 +90,19 @@
|
|||
|foreach |1.5.2 |2022-02-02 |CRAN (R 4.4.0) |
|
||||
|foreign |0.8-90 |2025-03-31 |CRAN (R 4.4.1) |
|
||||
|Formula |1.2-5 |2023-02-24 |CRAN (R 4.4.1) |
|
||||
|FreesearchR |25.7.1 |NA |NA |
|
||||
|FreesearchR |25.7.2 |NA |NA |
|
||||
|fs |1.6.6 |2025-04-12 |CRAN (R 4.4.1) |
|
||||
|gdtools |0.4.2 |2025-03-27 |CRAN (R 4.4.1) |
|
||||
|generics |0.1.3 |2022-07-05 |CRAN (R 4.4.1) |
|
||||
|gert |2.1.5 |2025-03-25 |CRAN (R 4.4.1) |
|
||||
|ggalluvial |0.12.5 |2023-02-22 |CRAN (R 4.4.0) |
|
||||
|ggcorrplot |0.1.4.1 |2023-09-05 |CRAN (R 4.4.0) |
|
||||
|ggforce |0.4.2 |2024-02-19 |CRAN (R 4.4.0) |
|
||||
|ggplot2 |3.5.2 |2025-04-09 |CRAN (R 4.4.1) |
|
||||
|ggridges |0.5.6 |2024-01-23 |CRAN (R 4.4.0) |
|
||||
|ggstats |0.9.0 |2025-03-10 |CRAN (R 4.4.1) |
|
||||
|gh |1.4.1 |2024-03-28 |CRAN (R 4.4.0) |
|
||||
|gitcreds |0.1.2 |2022-09-08 |CRAN (R 4.4.1) |
|
||||
|glue |1.8.0 |2024-09-30 |CRAN (R 4.4.1) |
|
||||
|gridExtra |2.3 |2017-09-09 |CRAN (R 4.4.1) |
|
||||
|gt |1.0.0 |2025-04-05 |CRAN (R 4.4.1) |
|
||||
|
|
@ -107,11 +116,13 @@
|
|||
|htmltools |0.5.8.1 |2024-04-04 |CRAN (R 4.4.1) |
|
||||
|htmlwidgets |1.6.4 |2023-12-06 |CRAN (R 4.4.0) |
|
||||
|httpuv |1.6.16 |2025-04-16 |CRAN (R 4.4.1) |
|
||||
|httr2 |1.1.2 |2025-03-26 |CRAN (R 4.4.1) |
|
||||
|IDEAFilter |0.2.0 |2024-04-15 |CRAN (R 4.4.0) |
|
||||
|insight |1.2.0 |2025-04-22 |CRAN (R 4.4.1) |
|
||||
|iterators |1.0.14 |2022-02-05 |CRAN (R 4.4.1) |
|
||||
|jquerylib |0.1.4 |2021-04-26 |CRAN (R 4.4.0) |
|
||||
|jsonlite |2.0.0 |2025-03-27 |CRAN (R 4.4.1) |
|
||||
|jsonvalidate |1.5.0 |2025-02-07 |CRAN (R 4.4.1) |
|
||||
|KernSmooth |2.23-26 |2025-01-01 |CRAN (R 4.4.1) |
|
||||
|keyring |1.3.2 |2023-12-11 |CRAN (R 4.4.0) |
|
||||
|knitr |1.50 |2025-03-16 |CRAN (R 4.4.1) |
|
||||
|
|
@ -140,6 +151,7 @@
|
|||
|opdisDownsampling |1.0.1 |2024-04-15 |CRAN (R 4.4.0) |
|
||||
|openssl |2.3.2 |2025-02-03 |CRAN (R 4.4.1) |
|
||||
|openxlsx2 |1.15 |2025-04-25 |CRAN (R 4.4.1) |
|
||||
|pak |0.8.0.2 |2025-04-08 |CRAN (R 4.4.1) |
|
||||
|parameters |0.24.2 |2025-03-04 |CRAN (R 4.4.1) |
|
||||
|patchwork |1.3.0 |2024-09-16 |CRAN (R 4.4.1) |
|
||||
|pbmcapply |1.5.1 |2022-04-28 |CRAN (R 4.4.1) |
|
||||
|
|
@ -168,6 +180,7 @@
|
|||
|R6 |2.6.1 |2025-02-15 |CRAN (R 4.4.1) |
|
||||
|ragg |1.4.0 |2025-04-10 |CRAN (R 4.4.1) |
|
||||
|rankinPlot |1.1.0 |2023-01-30 |CRAN (R 4.4.0) |
|
||||
|rappdirs |0.3.3 |2021-01-31 |CRAN (R 4.4.1) |
|
||||
|rbibutils |2.3 |2024-10-04 |CRAN (R 4.4.1) |
|
||||
|RColorBrewer |1.1-3 |2022-04-03 |CRAN (R 4.4.1) |
|
||||
|Rcpp |1.0.14 |2025-01-12 |CRAN (R 4.4.1) |
|
||||
|
|
@ -198,13 +211,16 @@
|
|||
|see |0.11.0 |2025-03-11 |CRAN (R 4.4.1) |
|
||||
|sessioninfo |1.2.3 |2025-02-05 |CRAN (R 4.4.1) |
|
||||
|shiny |1.10.0 |2024-12-14 |CRAN (R 4.4.1) |
|
||||
|shiny2docker |0.0.2 |2025-02-09 |CRAN (R 4.4.1) |
|
||||
|shinybusy |0.3.3 |2024-03-09 |CRAN (R 4.4.0) |
|
||||
|shinyjs |2.1.0 |2021-12-23 |CRAN (R 4.4.0) |
|
||||
|shinyTime |1.0.3 |2022-08-19 |CRAN (R 4.4.0) |
|
||||
|shinyWidgets |0.9.0 |2025-02-21 |CRAN (R 4.4.1) |
|
||||
|sourcetools |0.1.7-1 |2023-02-01 |CRAN (R 4.4.1) |
|
||||
|stringi |1.8.7 |2025-03-27 |CRAN (R 4.4.1) |
|
||||
|stringr |1.5.1 |2023-11-14 |CRAN (R 4.4.0) |
|
||||
|styler |1.10.3 |2024-04-07 |CRAN (R 4.4.0) |
|
||||
|sys |3.4.3 |2024-10-04 |CRAN (R 4.4.1) |
|
||||
|systemfonts |1.2.2 |2025-04-04 |CRAN (R 4.4.1) |
|
||||
|testthat |3.2.3 |2025-01-13 |CRAN (R 4.4.1) |
|
||||
|textshaping |1.0.0 |2025-01-20 |CRAN (R 4.4.1) |
|
||||
|
|
@ -220,6 +236,7 @@
|
|||
|urlchecker |1.0.1 |2021-11-30 |CRAN (R 4.4.1) |
|
||||
|usethis |3.1.0 |2024-11-26 |CRAN (R 4.4.1) |
|
||||
|uuid |1.2-1 |2024-07-29 |CRAN (R 4.4.1) |
|
||||
|V8 |6.0.3 |2025-03-26 |CRAN (R 4.4.1) |
|
||||
|vctrs |0.6.5 |2023-12-01 |CRAN (R 4.4.0) |
|
||||
|vroom |1.6.5 |2023-12-05 |CRAN (R 4.4.0) |
|
||||
|withr |3.0.2 |2024-10-28 |CRAN (R 4.4.1) |
|
||||
|
|
@ -228,4 +245,5 @@
|
|||
|xml2 |1.3.8 |2025-03-14 |CRAN (R 4.4.1) |
|
||||
|xtable |1.8-4 |2019-04-21 |CRAN (R 4.4.1) |
|
||||
|yaml |2.3.10 |2024-07-26 |CRAN (R 4.4.1) |
|
||||
|yesno |0.1.3 |2024-07-26 |CRAN (R 4.4.1) |
|
||||
|zip |2.3.2 |2025-02-01 |CRAN (R 4.4.1) |
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/app/libs.R
|
||||
#### Current file: /Users/au301842/FreesearchR/app/libs.R
|
||||
########
|
||||
|
||||
library(shiny)
|
||||
|
|
@ -40,20 +40,20 @@ library(rlang)
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/app/functions.R
|
||||
#### Current file: /Users/au301842/FreesearchR/app/functions.R
|
||||
########
|
||||
|
||||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//app_version.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//app_version.R
|
||||
########
|
||||
|
||||
app_version <- function()'25.7.1'
|
||||
app_version <- function()'25.7.2'
|
||||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//baseline_table.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//baseline_table.R
|
||||
########
|
||||
|
||||
#' Print a flexible baseline characteristics table
|
||||
|
|
@ -138,7 +138,7 @@ create_baseline <- function(data, ..., by.var, add.p = FALSE, add.overall = FALS
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//contrast_text.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//contrast_text.R
|
||||
########
|
||||
|
||||
#' @title Contrast Text Color
|
||||
|
|
@ -194,7 +194,7 @@ contrast_text <- function(background,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//correlations-module.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//correlations-module.R
|
||||
########
|
||||
|
||||
#' Data correlations evaluation module
|
||||
|
|
@ -339,7 +339,7 @@ sentence_paste <- function(data, and.str = "and") {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//create-column-mod.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//create-column-mod.R
|
||||
########
|
||||
|
||||
#' @title Create new column
|
||||
|
|
@ -782,7 +782,7 @@ make_choices_with_infos <- function(data) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//custom_SelectInput.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//custom_SelectInput.R
|
||||
########
|
||||
|
||||
#' A selectizeInput customized for data frames with column labels
|
||||
|
|
@ -976,7 +976,7 @@ vectorSelectInput <- function(inputId,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//cut-variable-dates.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//cut-variable-dates.R
|
||||
########
|
||||
|
||||
#' Extended cutting function with fall-back to the native base::cut
|
||||
|
|
@ -1595,7 +1595,7 @@ plot_histogram <- function(data, column=NULL, bins = 30, breaks = NULL, color =
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//data_plots.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//data_plots.R
|
||||
########
|
||||
|
||||
# source(here::here("functions.R"))
|
||||
|
|
@ -2445,7 +2445,7 @@ clean_common_axis <- function(p, axis) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//data-import.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//data-import.R
|
||||
########
|
||||
|
||||
data_import_ui <- function(id) {
|
||||
|
|
@ -2602,7 +2602,7 @@ data_import_demo_app <- function() {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//data-summary.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//data-summary.R
|
||||
########
|
||||
|
||||
#' Data summary module
|
||||
|
|
@ -3000,7 +3000,7 @@ get_var_icon <- function(data,class.type=c("class","type")){
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//datagrid-infos-mod.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//datagrid-infos-mod.R
|
||||
########
|
||||
|
||||
|
||||
|
|
@ -3349,7 +3349,7 @@ construct_col_summary <- function(data) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//helpers.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//helpers.R
|
||||
########
|
||||
|
||||
#' Wrapper function to get function from character vector referring to function from namespace. Passed to 'do.call()'
|
||||
|
|
@ -4023,14 +4023,14 @@ 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.7.1-250703'
|
||||
hosted_version <- function()'v25.7.2-250703'
|
||||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//html_dependency_freesearchr.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//html_dependency_freesearchr.R
|
||||
########
|
||||
|
||||
html_dependency_FreesearchR <- function() {
|
||||
|
|
@ -4045,7 +4045,7 @@ html_dependency_FreesearchR <- function() {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//import-file-ext.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//import-file-ext.R
|
||||
########
|
||||
|
||||
#' @title Import data from a file
|
||||
|
|
@ -4655,7 +4655,7 @@ import_file_demo_app <- function() {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//launch_FreesearchR.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//launch_FreesearchR.R
|
||||
########
|
||||
|
||||
#' Easily launch the FreesearchR app
|
||||
|
|
@ -4686,7 +4686,7 @@ launch_FreesearchR <- function(...){
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//missings-module.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//missings-module.R
|
||||
########
|
||||
|
||||
#' Data correlations evaluation module
|
||||
|
|
@ -4835,7 +4835,7 @@ compare_missings <- function(data,by_var){
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_box.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_box.R
|
||||
########
|
||||
|
||||
#' Beautiful box plot(s)
|
||||
|
|
@ -4934,7 +4934,7 @@ plot_box_single <- function(data, pri, sec=NULL, seed = 2103) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_euler.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_euler.R
|
||||
########
|
||||
|
||||
#' Area proportional venn diagrams
|
||||
|
|
@ -5075,7 +5075,7 @@ plot_euler_single <- function(data) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_hbar.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_hbar.R
|
||||
########
|
||||
|
||||
#' Nice horizontal stacked bars (Grotta bars)
|
||||
|
|
@ -5175,7 +5175,7 @@ vertical_stacked_bars <- function(data,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_ridge.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_ridge.R
|
||||
########
|
||||
|
||||
#' Plot nice ridge plot
|
||||
|
|
@ -5209,7 +5209,7 @@ plot_ridge <- function(data, x, y, z = NULL, ...) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_sankey.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_sankey.R
|
||||
########
|
||||
|
||||
#' Readying data for sankey plot
|
||||
|
|
@ -5442,7 +5442,7 @@ plot_sankey_single <- function(data, pri, sec, color.group = c("pri", "sec"), co
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_scatter.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_scatter.R
|
||||
########
|
||||
|
||||
#' Beautiful violin plot
|
||||
|
|
@ -5477,7 +5477,7 @@ plot_scatter <- function(data, pri, sec, ter = NULL) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_violin.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot_violin.R
|
||||
########
|
||||
|
||||
#' Beatiful violin plot
|
||||
|
|
@ -5512,7 +5512,7 @@ plot_violin <- function(data, pri, sec, ter = NULL) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot-download-module.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//plot-download-module.R
|
||||
########
|
||||
|
||||
plot_download_ui <- regression_ui <- function(id, ...) {
|
||||
|
|
@ -5593,7 +5593,7 @@ plot_download_server <- function(id,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//redcap_read_shiny_module.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//redcap_read_shiny_module.R
|
||||
########
|
||||
|
||||
#' Shiny module to browser and export REDCap data
|
||||
|
|
@ -6289,7 +6289,7 @@ redcap_demo_app <- function() {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression_model.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression_model.R
|
||||
########
|
||||
|
||||
#' Create a regression model programatically
|
||||
|
|
@ -7016,7 +7016,7 @@ regression_model_uv_list <- function(data,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression_plot.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression_plot.R
|
||||
########
|
||||
|
||||
#' Regression coef plot from gtsummary. Slightly modified to pass on arguments
|
||||
|
|
@ -7182,7 +7182,7 @@ symmetrical_scale_x_log10 <- function(plot, breaks = c(1, 2, 3, 5, 10), ...) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression_table.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression_table.R
|
||||
########
|
||||
|
||||
#' Create table of regression model
|
||||
|
|
@ -7371,7 +7371,7 @@ tbl_merge <- function(data) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression-module.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//regression-module.R
|
||||
########
|
||||
|
||||
### On rewriting this module
|
||||
|
|
@ -8059,7 +8059,7 @@ regression_server <- function(id,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//report.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//report.R
|
||||
########
|
||||
|
||||
#' Split vector by an index and embed addition
|
||||
|
|
@ -8147,7 +8147,7 @@ modify_qmd <- function(file, format) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//syntax_highlight.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//syntax_highlight.R
|
||||
########
|
||||
|
||||
## Inpiration:
|
||||
|
|
@ -8178,7 +8178,7 @@ html_code_wrap <- function(string,lang="r"){
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//theme.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//theme.R
|
||||
########
|
||||
|
||||
#' Custom theme based on unity
|
||||
|
|
@ -8297,7 +8297,7 @@ gg_theme_export <- function() {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//update-factor-ext.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//update-factor-ext.R
|
||||
########
|
||||
|
||||
|
||||
|
|
@ -8594,7 +8594,7 @@ winbox_update_factor <- function(id,
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//update-variables-ext.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//update-variables-ext.R
|
||||
########
|
||||
|
||||
#' Select, rename and convert variables
|
||||
|
|
@ -9406,7 +9406,7 @@ clean_date <- function(data) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//visual_summary.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//visual_summary.R
|
||||
########
|
||||
|
||||
#' Data correlations evaluation module
|
||||
|
|
@ -9703,7 +9703,7 @@ unique_short <- function(data, max = 15) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/R//wide2long.R
|
||||
#### Current file: /Users/au301842/FreesearchR/R//wide2long.R
|
||||
########
|
||||
|
||||
#' Alternative pivoting method for easily pivoting based on name pattern
|
||||
|
|
@ -9862,17 +9862,18 @@ grepl_fix <- function(data, pattern, type = c("prefix", "infix", "suffix")) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/dev/header_include.R
|
||||
#### Current file: /Users/au301842/FreesearchR/dev/header_include.R
|
||||
########
|
||||
|
||||
header_include <- function(){
|
||||
shiny::tags$head(
|
||||
tags$link(rel = "stylesheet", type = "text/css", href = "style.css"))
|
||||
tags$link(rel = "stylesheet", type = "text/css", href = "style.css"),
|
||||
tags$script(src="scripts.js"))
|
||||
}
|
||||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/dev/dev_banner.R
|
||||
#### Current file: /Users/au301842/FreesearchR/dev/dev_banner.R
|
||||
########
|
||||
|
||||
dev_banner <- function(){
|
||||
|
|
@ -9881,7 +9882,7 @@ dev_banner <- function(){
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/app/ui.R
|
||||
#### Current file: /Users/au301842/FreesearchR/app/ui.R
|
||||
########
|
||||
|
||||
# ns <- NS(id)
|
||||
|
|
@ -9918,7 +9919,7 @@ ui_elements <- list(
|
|||
##############################################################################
|
||||
"import" = bslib::nav_panel(
|
||||
title = "Get started",
|
||||
icon = shiny::icon("upload"),
|
||||
icon = shiny::icon("play"),
|
||||
shiny::fluidRow(
|
||||
shiny::column(width = 2),
|
||||
shiny::column(
|
||||
|
|
@ -10486,17 +10487,35 @@ ui <- bslib::page_fixed(
|
|||
header_include(),
|
||||
## Automatically close drop-downs on navigation
|
||||
## Thanks to claude.ai
|
||||
tags$script("
|
||||
$(document).on('shown.bs.tab', '#main_panel', function(e) {
|
||||
// Close dropdown in this specific navset only
|
||||
$('#main_panel .dropdown-menu').removeClass('show');
|
||||
$('#main_panel .dropdown-toggle').removeClass('show').attr('aria-expanded', 'false');
|
||||
|
||||
// Close navbar collapse (burger menu)
|
||||
$('#main_panel .navbar-collapse collapse').removeClass('show');
|
||||
$('#main_panel .navbar-toggle').removeClass('collapsed').attr('aria-expanded', 'false');
|
||||
});
|
||||
"),
|
||||
# tags$script("
|
||||
# $(document).on('shown.bs.tab', '#main_panel', function(e) {
|
||||
# // Close dropdown in this specific navset only
|
||||
# $('#main_panel .dropdown-menu').removeClass('show');
|
||||
# $('#main_panel .dropdown-toggle').removeClass('show').attr('aria-expanded', 'false');
|
||||
# });
|
||||
#
|
||||
# $(document).on('shiny:sessioninitialized', function() {
|
||||
# // Function to collapse navbar on mobile
|
||||
# function collapseNavbar() {
|
||||
# var navbar = $('.navbar-collapse');
|
||||
# if (navbar.hasClass('show')) {
|
||||
# navbar.removeClass('show');
|
||||
# $('.navbar-toggler').addClass('collapsed');
|
||||
# $('.navbar-toggler').attr('aria-expanded', 'false');
|
||||
# }
|
||||
# }
|
||||
#
|
||||
# // Add click event to navigation tabs
|
||||
# $(document).on('click', '.nav-link[data-bs-toggle=\"tab\"]', function() {
|
||||
# setTimeout(collapseNavbar, 10);
|
||||
# });
|
||||
#
|
||||
# // Also handle direct clicks on nav items
|
||||
# $(document).on('click', '.navbar-nav .nav-link', function() {
|
||||
# setTimeout(collapseNavbar, 10);
|
||||
# });
|
||||
# });
|
||||
# "),
|
||||
## This adds the actual favicon
|
||||
## png and ico versions are kept for compatibility
|
||||
shiny::tags$head(tags$link(rel = "shortcut icon", href = "favicon.svg")),
|
||||
|
|
@ -10543,7 +10562,7 @@ ui <- bslib::page_fixed(
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/app/server.R
|
||||
#### Current file: /Users/au301842/FreesearchR/app/server.R
|
||||
########
|
||||
|
||||
data(mtcars)
|
||||
|
|
@ -11350,7 +11369,7 @@ server <- function(input, output, session) {
|
|||
|
||||
|
||||
########
|
||||
#### Current file: /Users/au301842/FreesearchR/app/launch.R
|
||||
#### Current file: /Users/au301842/FreesearchR/app/launch.R
|
||||
########
|
||||
|
||||
shinyApp(ui, server)
|
||||
|
|
|
|||
29
inst/apps/FreesearchR/www/scripts.js
Normal file
29
inst/apps/FreesearchR/www/scripts.js
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
// Automatically close drop-downs on navigation
|
||||
// Thanks to claude.ai
|
||||
$(document).on('shown.bs.tab', '#main_panel', function(e) {
|
||||
// Close dropdown in this specific navset only
|
||||
$('#main_panel .dropdown-menu').removeClass('show');
|
||||
$('#main_panel .dropdown-toggle').removeClass('show').attr('aria-expanded', 'false');
|
||||
});
|
||||
|
||||
$(document).on('shiny:sessioninitialized', function() {
|
||||
// Function to collapse navbar on mobile
|
||||
function collapseNavbar() {
|
||||
var navbar = $('.navbar-collapse');
|
||||
if (navbar.hasClass('show')) {
|
||||
navbar.removeClass('show');
|
||||
$('.navbar-toggler').addClass('collapsed');
|
||||
$('.navbar-toggler').attr('aria-expanded', 'false');
|
||||
}
|
||||
}
|
||||
|
||||
// Add click event to navigation tabs
|
||||
$(document).on('click', '.nav-link[data-bs-toggle=\"tab\"]', function() {
|
||||
setTimeout(collapseNavbar, 10);
|
||||
});
|
||||
|
||||
// Also handle direct clicks on nav items
|
||||
$(document).on('click', '.navbar-nav .nav-link', function() {
|
||||
setTimeout(collapseNavbar, 10);
|
||||
});
|
||||
});
|
||||
29
inst/assets/js/FreesearchR.js
Normal file
29
inst/assets/js/FreesearchR.js
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
// Automatically close drop-downs on navigation
|
||||
// Thanks to claude.ai
|
||||
$(document).on('shown.bs.tab', '#main_panel', function(e) {
|
||||
// Close dropdown in this specific navset only
|
||||
$('#main_panel .dropdown-menu').removeClass('show');
|
||||
$('#main_panel .dropdown-toggle').removeClass('show').attr('aria-expanded', 'false');
|
||||
});
|
||||
|
||||
$(document).on('shiny:sessioninitialized', function() {
|
||||
// Function to collapse navbar on mobile
|
||||
function collapseNavbar() {
|
||||
var navbar = $('.navbar-collapse');
|
||||
if (navbar.hasClass('show')) {
|
||||
navbar.removeClass('show');
|
||||
$('.navbar-toggler').addClass('collapsed');
|
||||
$('.navbar-toggler').attr('aria-expanded', 'false');
|
||||
}
|
||||
}
|
||||
|
||||
// Add click event to navigation tabs
|
||||
$(document).on('click', '.nav-link[data-bs-toggle=\"tab\"]', function() {
|
||||
setTimeout(collapseNavbar, 10);
|
||||
});
|
||||
|
||||
// Also handle direct clicks on nav items
|
||||
$(document).on('click', '.navbar-nav .nav-link', function() {
|
||||
setTimeout(collapseNavbar, 10);
|
||||
});
|
||||
});
|
||||
Loading…
Add table
Reference in a new issue