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

fix: keeps labels modifying factors and creates new factors correctly

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-03-11 10:17:42 +01:00
commit 32f299880d
No known key found for this signature in database
23 changed files with 676 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -70,7 +70,7 @@ update_factor_ui <- function(id) {
class = "float-end",
shinyWidgets::prettyCheckbox(
inputId = ns("new_var"),
label = i18n$t("Create a new variable (otherwise replaces the one selected)"),
label = i18n$t("Create a new variable; otherwise replaces (Updating labels always creates new variable)"),
value = FALSE,
status = "primary",
outline = TRUE,
@ -201,15 +201,18 @@ update_factor_server <- function(id, data_r = reactive(NULL)) {
parameters <- list(
variable = variable,
new_variable = isTRUE(input$new_var) |
any(grid[["Var1_toset"]] == "New label"),
any(grid[["Var1_toset"]] != "New label"),
new_levels = as.character(grid[["Var1"]]),
new_labels = as.character(grid[["Var1_toset"]]),
ignore = "New label"
)
data <- tryCatch({
rlang::exec(factor_new_levels_labels,
!!!modifyList(parameters, val = list(data = data)))
with_labels(data,{
rlang::exec(factor_new_levels_labels,
!!!modifyList(parameters, val = list(data = data)))
})
}, error = function(err) {
showNotification(paste(
"We encountered the following error creating the new factor:",