точки в именах переменных в `js` в блестящем приложении

Question

Я попытался воспроизвести результат из этого примера , но у меня возникла проблема с именем моей переменной.Что мне делать в CSS/HTML/js, если в имени моей переменной . (точка)?

Сначала я попробовал следующий пример, который работает и будет показывать ценности с помеченными цветами:

t = c("A","B","C")
appCSS <- 
c("#t3 ~ .selectize-control.single .selectize-dropdown [data-value=A] {color:blue}",
  "#t3 ~ .selectize-control.single .selectize-dropdown [data-value=B] {color:red}",
  "#t3 ~ .selectize-control.single .selectize-dropdown [data-value=C] {color:yellow}")

appCSS = str_c(appCSS,collapse = "")

runApp(shinyApp(
  ui = fluidPage(

    tags$head(tags$style(HTML(appCSS))),
    selectInput("t3", "Color", t)
  ),
  server = function(input, output, session) {
  }
))

Теперь я делаю то же самое, но с изменением моего вектора t на TX2:

TX2
[1] "C-2.20-BL.LK.01-A-A" "C-2.20-BL.LK.01-A-B" "C-2.20-BL.LK.01-A-C"

appCSS <- 
  c("#t3 ~ .selectize-control.single .selectize-dropdown [data-value=C-2.20-BL.LK.01-A-A] {color:blue}",
    "#t3 ~ .selectize-control.single .selectize-dropdown [data-value=C-2.20-BL.LK.01-A-B] {color:red}",
    "#t3 ~ .selectize-control.single .selectize-dropdown [data-value=C-2.20-BL.LK.01-A-C] {color:yellow}")
appCSS = str_c(appCSS,collapse = "")

runApp(shinyApp(
  ui = fluidPage(
    tags$head(tags$style(HTML(appCSS))),
    selectInput("t3", "Color", TX2)
  ),
  server = function(input, output, session) {
  }
))

это не возвращает цветные переменные в выпадающем меню.единственное различие, которое я мог видеть, - мои имена переменных.Есть ли предел?

Answer 1

Я бы предложил использовать пакет inyWidgets .Я позволю себе это сделать.

install.packages("shinyWidgets")
library(shinyWidgets)

ui <- fluidPage(
pickerInput(inputId = "Id068", 
  label = "Style individual options with HTML", 
  choices = c("steelblue 150%", 
    "right align + red", "bold", 
    "background color"), choicesOpt = list(style = c("color: steelblue; font-size: 150%;", 
    "color: firebrick; text-align: right;", 
    "font-weight: bold;", "background: forestgreen; color: white;")))
)

server <- function(inout, output, session){}

shinyApp(ui, server)

Вы найдете демо на shinyapps .