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: adjusted to not allow typing

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

14
R/custom_SelectInput.R
View file

@ -270,7 +270,7 @@ vectorSelectInput <- function(inputId,
colorSelectInput <- function(inputId, colorSelectInput <- function(inputId,
label, label,
choices, choices,
selected = "", selected = NULL,
previews = 4, previews = 4,
..., ...,
placeholder = "") { placeholder = "") {
@ -306,6 +306,10 @@ colorSelectInput <- function(inputId,
choices_new <- stats::setNames(vals, labels) choices_new <- stats::setNames(vals, labels)
if (is.null(selected) || selected == "") {
selected <- vals[[1]]
}
shiny::selectizeInput( shiny::selectizeInput(
inputId = inputId, inputId = inputId,
label = label, label = label,
@ -330,6 +334,14 @@ colorSelectInput <- function(inputId,
item.data.swatch + item.data.swatch +
'</div>'; '</div>';
} }
}"
),
onInitialize = I(
"function() {
var self = this;
self.$control_input.prop('readonly', true);
self.$control_input.css('cursor', 'default');
self.$control.css('cursor', 'pointer');
}" }"
) )
) )

2
man/colorSelectInput.Rd
View file

@ -9,7 +9,7 @@ colorSelectInput(
inputId, inputId,
label, label,
choices, choices,
selected = "", selected = NULL,
previews = 4, previews = 4,
..., ...,
placeholder = "" placeholder = ""