From 1155748582394eaa7c3a2cf10bf25d3e2c32c9bf Mon Sep 17 00:00:00 2001 From: pvictor Date: Wed, 15 Nov 2023 12:23:49 +0100 Subject: [PATCH] edit var logical: dont add suffix to label --- R/edit-data-utils.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/edit-data-utils.R b/R/edit-data-utils.R index ce1a307..b60bdf2 100644 --- a/R/edit-data-utils.R +++ b/R/edit-data-utils.R @@ -106,13 +106,14 @@ edit_input_form <- function(default = list(), variable_name <- colnames[position_var_edit[i]] variable <- data[[i]] + suffix <- if (isTRUE((inherits(variable, "logical")))) "" else " : " if (variable_name %in% var_mandatory) { label <- tagList( variable_name, - tags$span(HTML("*"), class = "asterisk", style = "color: red;"), " : " + tags$span(HTML("*"), class = "asterisk", style = "color: red;"), suffix ) } else { - label <- paste0(variable_name, " : ") + label <- paste0(variable_name, suffix) } if (isTRUE(inherits(variable, c("numeric", "integer")))) {