andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37: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,
label,
choices,
selected = "",
selected = NULL,
previews = 4,
...,
placeholder = "") {
@ -306,6 +306,10 @@ colorSelectInput <- function(inputId,
choices_new <- stats::setNames(vals, labels)
if (is.null(selected) || selected == "") {
selected <- vals[[1]]
}
shiny::selectizeInput(
inputId = inputId,
label = label,
@ -330,6 +334,14 @@ colorSelectInput <- function(inputId,
item.data.swatch +
'</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,
label,
choices,
selected = "",
selected = NULL,
previews = 4,
...,
placeholder = ""