From 2495da555add48029220831f9a28b30ae13bb461 Mon Sep 17 00:00:00 2001 From: Andreas Gammelgaard Damsbo Date: Thu, 20 Mar 2025 13:12:38 +0100 Subject: [PATCH] no type or clase if missing --- R/app_version.R | 2 +- R/custom_SelectInput.R | 10 ++++++---- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/R/app_version.R b/R/app_version.R index 79df9cf..ff73a30 100644 --- a/R/app_version.R +++ b/R/app_version.R @@ -1 +1 @@ -app_version <- function()'250320_1144' +app_version <- function()'250320_1310' diff --git a/R/custom_SelectInput.R b/R/custom_SelectInput.R index d9da27b..3704c98 100644 --- a/R/custom_SelectInput.R +++ b/R/custom_SelectInput.R @@ -64,13 +64,16 @@ columnSelectInput <- function(inputId, label, data, selected = "", ..., return '
' + '
' + escape(item.data.name) + ' ' + + '' + + (item.data.dataclass != '' ? ' ' + item.data.dataclass + - '' + ' ' + + '' : '' ) + ' ' + + (item.data.datatype != '' ? ' ' + item.data.datatype + - '' + - '
' + + '' : '' ) + + '
' + (item.data.label != '' ? '
' + escape(item.data.label) + '
' : '') + ''; }, @@ -89,7 +92,6 @@ columnSelectInput <- function(inputId, label, data, selected = "", ..., } - #' A selectizeInput customized for named vectors #' #' @param inputId passed to \code{\link[shiny]{selectizeInput}}