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

render
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-16 16:26:16 +02:00
parent 83064f4c99
commit d6861492e3
No known key found for this signature in database
1 changed files with 46 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
######## ########
#### Current file: /Users/au301842/FreesearchR/app/libs.R #### Current file: /Users/au301842/FreesearchR/app/libs.R
######## ########
library(shiny) 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.5.5' app_version <- function()'25.5.6'
######## ########
#### Current file: /Users/au301842/FreesearchR/R//baseline_table.R #### Current file: /Users/au301842/FreesearchR/R//baseline_table.R
######## ########
#' Print a flexible baseline characteristics table #' 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 #' @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 #' 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 #' @title Create new column
@ -440,7 +440,7 @@ create_column_ui <- function(id) {
uiOutput(outputId = ns("columns")), uiOutput(outputId = ns("columns")),
uiOutput(outputId = ns("feedback")), uiOutput(outputId = ns("feedback")),
tags$div( tags$div(
style = css( style = htmltools::css(
display = "grid", display = "grid",
gridTemplateColumns = "3fr 1fr", gridTemplateColumns = "3fr 1fr",
columnGap = "10px", columnGap = "10px",
@ -729,7 +729,7 @@ btn_column <- function(label, data, inputId) {
tags$button( tags$button(
type = "button", type = "button",
class = paste0("btn btn-column-", type), class = paste0("btn btn-column-", type),
style = css( style = htmltools::css(
"--bs-btn-padding-y" = ".25rem", "--bs-btn-padding-y" = ".25rem",
"--bs-btn-padding-x" = ".5rem", "--bs-btn-padding-x" = ".5rem",
"--bs-btn-font-size" = ".75rem", "--bs-btn-font-size" = ".75rem",
@ -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 #' 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 #' 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")) # source(here::here("functions.R"))
@ -2415,7 +2415,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) { data_import_ui <- function(id) {
@ -2572,7 +2572,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 #' Data summary module
@ -2970,7 +2970,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
######## ########
@ -3319,7 +3319,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()' #' Wrapper function to get function from character vector referring to function from namespace. Passed to 'do.call()'
@ -3993,14 +3993,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.5.5-250516' hosted_version <- function()'v25.5.6-250516'
######## ########
#### Current file: /Users/au301842/FreesearchR/R//html_dependency_freesearchr.R #### Current file: /Users/au301842/FreesearchR/R//html_dependency_freesearchr.R
######## ########
html_dependency_FreesearchR <- function() { html_dependency_FreesearchR <- function() {
@ -4015,7 +4015,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 #' @title Import data from a file
@ -4625,7 +4625,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 #' Easily launch the FreesearchR app
@ -4656,7 +4656,7 @@ launch_FreesearchR <- function(...){
######## ########
#### Current file: /Users/au301842/FreesearchR/R//plot_box.R #### Current file: /Users/au301842/FreesearchR/R//plot_box.R
######## ########
#' Beautiful box plot(s) #' Beautiful box plot(s)
@ -4742,7 +4742,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 #' Area proportional venn diagrams
@ -4883,7 +4883,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) #' Nice horizontal stacked bars (Grotta bars)
@ -4983,7 +4983,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 #' Plot nice ridge plot
@ -5017,7 +5017,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 #' Readying data for sankey plot
@ -5250,7 +5250,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 #' Beautiful violin plot
@ -5285,7 +5285,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 #' Beatiful violin plot
@ -5320,7 +5320,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, ...) { plot_download_ui <- regression_ui <- function(id, ...) {
@ -5401,7 +5401,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 #' Shiny module to browser and export REDCap data
@ -6096,7 +6096,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 #' Create a regression model programatically
@ -6823,7 +6823,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 #' Regression coef plot from gtsummary. Slightly modified to pass on arguments
@ -6989,7 +6989,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 #' Create table of regression model
@ -7178,7 +7178,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 ### On rewriting this module
@ -7848,7 +7848,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 #' Split vector by an index and embed addition
@ -7936,7 +7936,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: ## Inpiration:
@ -7967,7 +7967,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 #' Custom theme based on unity
@ -8075,7 +8075,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
######## ########
@ -8372,7 +8372,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 #' Select, rename and convert variables
@ -9184,7 +9184,7 @@ clean_date <- function(data) {
######## ########
#### 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 #' Alternative pivoting method for easily pivoting based on name pattern
@ -9343,7 +9343,7 @@ 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(){ header_include <- function(){
@ -9353,7 +9353,7 @@ header_include <- function(){
######## ########
#### Current file: /Users/au301842/FreesearchR/dev/dev_banner.R #### Current file: /Users/au301842/FreesearchR/dev/dev_banner.R
######## ########
dev_banner <- function(){ dev_banner <- function(){
@ -9362,7 +9362,7 @@ dev_banner <- function(){
######## ########
#### Current file: /Users/au301842/FreesearchR/app/ui.R #### Current file: /Users/au301842/FreesearchR/app/ui.R
######## ########
# ns <- NS(id) # ns <- NS(id)
@ -9948,7 +9948,7 @@ ui <- bslib::page_fixed(
######## ########
#### Current file: /Users/au301842/FreesearchR/app/server.R #### Current file: /Users/au301842/FreesearchR/app/server.R
######## ########
@ -10699,7 +10699,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) shinyApp(ui, server)