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

render

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-03-30 20:20:05 +02:00
commit fcf422bc4b
No known key found for this signature in database
16 changed files with 64 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'26.3.4'
app_version <- function()'26.3.5'

2
R/cut-variable-ext.R
View file

@ -378,7 +378,7 @@ cut_variable_server <- function(id, data_r = reactive(NULL)) {
rlang::exec(cut_var, !!!parameters)
},
error = function(err) {
showNotification(paste("We encountered the following error creating the new factor:", err), type = "err")
showNotification(paste("We encountered the following error creating the new factor:", err), type = "error")
}
)

2
R/hosted_version.R
View file

@ -1 +1 @@
hosted_version <- function()'v26.3.4-260324'
hosted_version <- function()'v26.3.5-260330'

8
R/import-file-ext.R
View file

@ -353,7 +353,7 @@ import_file_server <- function(id,
# showNotification(warn, type = "warning")
# },
error = function(err) {
showNotification(err, type = "err")
showNotification(err, type = "error")
})
})
@ -370,7 +370,7 @@ import_file_server <- function(id,
minBodyHeight = 250
)
}, error = function(err) {
showNotification(err, type = "err")
showNotification(err, type = "error")
})
})
@ -485,7 +485,7 @@ import_xls <- function(file, sheet, skip, na.strings) {
# showNotification(paste0(warn), type = "warning")
# },
error = function(err) {
showNotification(paste0(err), type = "err")
showNotification(paste0(err), type = "error")
})
}
@ -513,7 +513,7 @@ import_ods <- function(file, sheet, skip, na.strings) {
# showNotification(paste0(warn), type = "warning")
# },
error = function(err) {
showNotification(paste0(err), type = "err")
?showNotification(paste0(err), type = "error")
})
}

2
R/missings-module.R
View file

@ -172,7 +172,7 @@ data_missings_server <- function(id, data, max_level = 20, ...) {
out <- do.call(compare_missings, modifyList(parameters, list(data = df_tbl)))
})
}, error = function(err) {
showNotification(paste0("Error: ", err), type = "err")
showNotification(paste0("Error: ", err), type = "error")
})
if (is.null(input$missings_var) ||

10
R/regression-module.R
View file

@ -416,7 +416,7 @@ regression_server <- function(id,
rv$list$regression$models <- model_lists
},
error = function(err) {
showNotification(paste(i18n$t("Creating regression models failed with the following error:"), err), type = "err")
showNotification(paste(i18n$t("Creating regression models failed with the following error:"), err), type = "error")
}
)
}
@ -481,7 +481,7 @@ regression_server <- function(id,
showNotification(paste0(warn), type = "warning")
},
error = function(err) {
showNotification(paste(i18n$t("Creating a regression table failed with the following error:"), err), type = "err")
showNotification(paste(i18n$t("Creating a regression table failed with the following error:"), err), type = "error")
}
)
}
@ -559,7 +559,7 @@ regression_server <- function(id,
gg_theme_shiny()
},
error = function(err) {
showNotification(paste0(err), type = "err")
showNotification(paste0(err), type = "error")
}
)
})
@ -619,7 +619,7 @@ regression_server <- function(id,
# showNotification(paste0(warn), type = "warning")
# },
error = function(err) {
showNotification(paste(i18n$t("Running model assumptions checks failed with the following error:"), err), type = "err")
showNotification(paste(i18n$t("Running model assumptions checks failed with the following error:"), err), type = "error")
}
)
}
@ -690,7 +690,7 @@ regression_server <- function(id,
out <- patchwork::wrap_plots(ls, ncol = if (length(ls) == 1) 1 else 2)
},
error = function(err) {
showNotification(err, type = "err")
showNotification(err, type = "error")
}
)

BIN
R/sysdata.rda
View file

Binary file not shown.

2
R/update-factor-ext.R
View file

@ -245,7 +245,7 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
"We encountered the following error creating the new factor:",
err
),
type = "err")
type = "error")
})
# browser()