Shiny R：更改 selectInput 的边框颜色

Question

我正在创建一个相当被动的应用程序，它有一些 numericInput 变量和一些 selectInput 变量。

由于变量比较多，而且是用来估计干预的，所以我引入颜色来表示那些与默认值不同的变量。我已经在@BigDataScientist 的帮助下在问题中实现了这一点。提出了一个 MWE：

library(shiny)
library(shinyjs)
ui<-shinyUI(
  fluidPage(
    useShinyjs(),
    numericInput("V1", "MyV1" , value = 5, min = 0, max= 100, step = 0.01),
    numericInput("V2", "MyV2" , value = 23, min = 0, max= 100, step = 0.01),
    selectInput("V3" , "MyV3" , selected = 1 , choices=c("Yes" = 1,"No" = 0))
  )
)
#
server<-shinyServer(function(input, output) {
  observe({
    if(!is.na(input$V1) & input$V1 != 5){color <- "solid #9999CC"}else{color <- ""}                     
    runjs(paste0("document.getElementById('V1').style.border ='", color ,"'"))
    if(!is.na(input$V2) & input$V2 != 23){color <- "solid #9999CC"}else{color <- ""}                     
    runjs(paste0("document.getElementById('V2').style.border ='", color ,"'"))
    if(!is.na(input$V3) & input$V3 != 1){color <- "solid #9999CC"}else{color <- ""}                     
    runjs(paste0("document.getElementById('V3').style.borderColor ='", color ,"'"))
    })
  })
#
shinyApp(ui,server)

如下图所示，我的代码适用于数值，但是 它不适用于 select 输入变量（在交互式环境中）至少）。

现在不是条件不工作，它被评估并且runjs运行。

此外，正如您在下面的 js 片段中看到的，js 命令就可以了。我想念的可能是使它具有反应性的方法（ 没有与 numericInput 完全一样的提交按钮）。

<!DOCTYPE html>
<html>
<body>



<select id="mySelect">
  <option>Apple</option>
  <option>Orange</option>
  <option>Pineapple</option>
  <option>Banana</option>
</select>

<p>Click the button to change the style of the H1 element.</p>

<button onclick="myFunction()">Try it</button>

<script>
function myFunction() {
    document.getElementById("mySelect").style.borderColor = "red";
}
</script>

</body>
</html>

你有什么建议吗？

Answer 1

你不需要selectize.js所以你可以这样做：

selectInput("V3" , "MyV3" , selected = 1 , choices=c("Yes" = 1,"No" = 0), 
            selectize = FALSE)

这给出了一个 "ordinary" select 输入。

接下来我用 color <- "red" 尝试了您的代码，这有效。

Shiny R：更改 selectInput 的边框颜色

Shiny R: Change border color of selectInput

javascript

r

shiny

shinyjs

shiny-reactivity