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

Baseline plot now updates on changed input data

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-20 10:40:15 +01:00
parent 33c700ca5f
commit 7e90d38380
No known key found for this signature in database
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -218,7 +218,10 @@ server <- function(input, output, session) {
id = "modal_column", id = "modal_column",
data_r = reactive(rv$data) data_r = reactive(rv$data)
) )
shiny::observeEvent(data_modal_r(), rv$data <- data_modal_r()) shiny::observeEvent(
data_modal_r(), {
rv$data <- data_modal_r()
})
######### Show result ######### Show result
@ -227,7 +230,7 @@ server <- function(input, output, session) {
# data <- rv$data # data <- rv$data
toastui::datagrid( toastui::datagrid(
# data = rv$data # , # data = rv$data # ,
data = data_filter() data = data_filter(),
# bordered = TRUE, # bordered = TRUE,
# compact = TRUE, # compact = TRUE,
# striped = TRUE # striped = TRUE
@ -467,6 +470,8 @@ server <- function(input, output, session) {
list( list(
shiny::reactive(rv$list$data), shiny::reactive(rv$list$data),
shiny::reactive(rv$data), shiny::reactive(rv$data),
shiny::reactive(rv$data_original),
data_filter(),
input$strat_var, input$strat_var,
input$include_vars, input$include_vars,
input$add_p input$add_p