andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

cleaning

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-30 13:03:20 +02:00
commit e64f9c5d17
No known key found for this signature in database
5 changed files with 140 additions and 184 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/regression-module.R
View file

@ -482,6 +482,7 @@ regression_server <- function(id,
## To avoid plotting old models on fail/error
rv$list$regression$tables <- NULL
# browser()
tryCatch(
{
parameters <- list(
@ -517,17 +518,9 @@ regression_server <- function(id,
)
})
list(
rv$code$import,
rlang::call2(.fn = "select", !!!list(input$import_var), .ns = "dplyr"),
rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
) |>
merge_expression() |>
expression_string()
rv$list$regression$tables <- out
rv$list$input <- input
},
warning = function(warn) {
showNotification(paste0(warn), type = "warning")
@ -639,7 +632,7 @@ regression_server <- function(id,
##############################################################################
return(shiny::reactive({
return(rv$list)
rv$list
}))
}
)