r - 当文本输入在 Shiny 应用程序中为空时禁用操作按钮 [R]

Question

我正在构建一个 Shiny 的应用程序，其中来自 textInput 的查询当用户单击“搜索”操作按钮时进行。如果 textInput，我希望禁用该按钮盒子是空的。我正在使用 shinyjs::toggleState()在这里，但我无法弄清楚它需要应用什么逻辑才能看到文本框为空。在下面的可重现文件中，我采用的逻辑是 is.null(input$query) .我也试过 is.na(input$query) , length(input$query) == 0 , 和 input$query == '' , 都没有成功 我应该在那里放什么？

这是 app.r 文件:

library(shiny)
library(shinyjs)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      useShinyjs(),
      textInput(inputId = "query", label = "Enter query:", value = ""),
      actionButton(inputId = "search", label = "Search", icon = icon("search"))
    ),
    mainPanel()
  )
)

server <- function(input, output) {
  observe({
    toggleState("search", !is.null(input$query))
  })
}

shinyApp(ui = ui, server = server)

Answer 1

有这种事吗？

 observe({
    if(is.null(input$query) || input$query == ""){
      disable("search")
    }
    else{
      enable("search")
    }
  })

根据@Sagar，您还可以执行以下操作:

observe({
  toggleState("search", input$query != "" | is.null(input$query))
})

或者

observeEvent(input$query,{
  toggleState("search", input$query != "" | is.null(input$query))
})