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

minor adjustments to corelation plotting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-02-07 17:09:52 +01:00
parent 4050429375
commit 262a1316b0
No known key found for this signature in database
5 changed files with 55 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'250207_1622'
app_version <- function()'250207_1709'

31
inst/apps/data_analysis_modules/app.R
View file

@ -10,7 +10,7 @@
#### Current file: R//app_version.R
########
app_version <- function()'250207_1622'
app_version <- function()'250207_1709'
########
@ -4103,14 +4103,19 @@ ui_elements <- list(
)
),
bslib::accordion_panel(
vlaue = "acc_cor",
title = "Correlations",
icon = bsicons::bs_icon("table"),
shiny::uiOutput("outcome_var_cor"),
shiny::helpText("This variable will be excluded from the correlation plot."),
shiny::br(),
shiny::sliderInput(
inputId = "cor_cutoff",
label = "Correlation cut-off",
min = 0,
max = 1,
step = .02,
value = .7,
value = .8,
ticks = FALSE
)
)
@ -4887,6 +4892,18 @@ server <- function(input, output, session) {
}
)
output$outcome_var_cor <- shiny::renderUI({
shiny::selectInput(
inputId = "outcome_var_cor",
selected = NULL,
label = "Select outcome variable",
choices = c(
colnames(rv$list$data)
# ,"none"
),
multiple = FALSE
)
})
output$table1 <- gt::render_gt({
shiny::req(rv$list$table1)
@ -4896,12 +4913,18 @@ server <- function(input, output, session) {
gt::tab_header(gt::md("**Table 1: Baseline Characteristics**"))
})
data_correlations_server(id = "correlations",
data = shiny::reactive(rv$list$data),
data = shiny::reactive({
out <- dplyr::select(rv$list$data,-!!input$outcome_var_cor)
# input$outcome_var_cor=="none"){
# out <- rv$list$data
# }
out
}),
cutoff = shiny::reactive(input$cor_cutoff))
##############################################################################
#########
######### Regression model analyses

2
inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1
appId: 13611288
bundleId:
bundleId: 9765526
url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1

22
inst/apps/data_analysis_modules/server.R
View file

@ -512,6 +512,18 @@ server <- function(input, output, session) {
}
)
output$outcome_var_cor <- shiny::renderUI({
shiny::selectInput(
inputId = "outcome_var_cor",
selected = NULL,
label = "Select outcome variable",
choices = c(
colnames(rv$list$data)
# ,"none"
),
multiple = FALSE
)
})
output$table1 <- gt::render_gt({
shiny::req(rv$list$table1)
@ -521,12 +533,18 @@ server <- function(input, output, session) {
gt::tab_header(gt::md("**Table 1: Baseline Characteristics**"))
})
data_correlations_server(id = "correlations",
data = shiny::reactive(rv$list$data),
data = shiny::reactive({
out <- dplyr::select(rv$list$data,-!!input$outcome_var_cor)
# input$outcome_var_cor=="none"){
# out <- rv$list$data
# }
out
}),
cutoff = shiny::reactive(input$cor_cutoff))
##############################################################################
#########
######### Regression model analyses

7
inst/apps/data_analysis_modules/ui.R
View file

@ -317,14 +317,19 @@ ui_elements <- list(
)
),
bslib::accordion_panel(
vlaue = "acc_cor",
title = "Correlations",
icon = bsicons::bs_icon("table"),
shiny::uiOutput("outcome_var_cor"),
shiny::helpText("This variable will be excluded from the correlation plot."),
shiny::br(),
shiny::sliderInput(
inputId = "cor_cutoff",
label = "Correlation cut-off",
min = 0,
max = 1,
step = .02,
value = .7,
value = .8,
ticks = FALSE
)
)