2

我正在创建一个相当被动的应用程序，它有一些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)

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

我的例子

现在不是条件不起作用，而是评估并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>

你有什么建议吗？

4

1 回答 1

1

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

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

这给出了一个“普通”的选择输入。

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

于 2017-10-17T12:36:08.377 回答