闪亮的禁用选择，但用户可以看到可用的选项，但我无法选择它们

Question

早上好，我有一个可供选择的选项。我需要禁用此输入，但用户可以看到可用的选项，但我无法选择它们。

谢谢

我的意思是，我有一个从1到100的问题列表。我如何让这个人看到问题，但不能选择任何问题，比如禁用它们。它将在Selectinput中被禁用，但用户可以看到可用的选项。

selectInput(inputId="question"，label="questions"，choices=c("question1"，"question2"，"question3"，"question4"，"problem100"(，

谢谢

Answer 1

使用包shinyjs()，您可以使用disable函数，尽管这不允许您看到下拉选项。所以……你的问题只回答了一半，不确定是否有可能看到选择。

library(shiny)
library(shinyjs)
#####/UI/####
header <- dashboardHeader()
sidebar <- dashboardSidebar()
body <- dashboardBody(
useShinyjs(),
selectInput(inputId = "question", label = "questions", 
choices = c("question1", "question2", "question3", "question4", "question100" )
)
)
ui <- dashboardPage(header, sidebar, body)
#####/SERVER/####
server <- function(session, input, output) { 
shinyjs::disable("question")
}
shinyApp(ui, server)

根据你试图实现的目标，可能还有一些其他方法可以获得同样的效果(即，除非满足另一个条件，否则不要让下拉菜单启动反应，等等(