当单击指定输入以外的任何操作或其他按钮时，如何在 R Shiny 中使用 js 隐藏条件面板？答案

【问题标题】：How to hide a conditional panel using js in R Shiny when any action or other button is clicked other than specified inputs?当单击指定输入以外的任何操作或其他按钮时，如何在 R Shiny 中使用 js 隐藏条件面板？
【发布时间】：2022-10-04 16:39:32
【问题描述】：

当有任何用户输入时，我试图隐藏下图所示的条件面板以外用户单击操作按钮“删除”或在条件面板中呈现的selectInput() 函数中进行选择，如下图所示。将添加其他用户输入（操作按钮、单选按钮、选择输入等），因此列出导致条件面板隐藏的每个操作是不可行的。该条件面板应始终在单击“删除”时呈现。关于如何做到这一点的任何建议？代码显示在底部。

代码：

library(rhandsontable)
library(shiny)

mydata <- data.frame('Col 1' = c(1,24,0,1), check.names = FALSE)
rownames(mydata) <- c('Term A','Term B','Term C','Term D') 

ui <- fluidPage(br(),
      rHandsontableOutput("mytable"),br(),
        fluidRow(
          column(1,actionButton("addCol", "Add",width = '70px')),
          column(1,actionButton("delCol","Delete",width = '70px')),
          column(3,conditionalPanel(condition = "input.delCol",uiOutput("delCol"))) # js here
        )
)

server <- function(input, output) {
  
  output$mytable = renderRHandsontable(df())
  
  df <- eventReactive(input$addCol, {
    if(input$addCol > 0){
      newcol <- data.frame(mydata[,1])
      names(newcol) <- paste("Col",ncol(mydata)+1)
      mydata <<- cbind(mydata, newcol)
    }
    rhandsontable(mydata,rowHeaderWidth = 100, useTypes = TRUE)
  }, ignoreNULL = FALSE)
  
  observeEvent(input$delCol,
    {output$delCol<-renderUI(selectInput("delCol",label=NULL,choices=colnames(mydata),selected="Col 1"))}
    )
  
}

shinyApp(ui,server)

【问题讨论】：

我会研究shinyjs，它是一个 R 包，可以帮助您隐藏和显示闪亮的对象，它也可以与操作按钮一起使用

标签： javascript r shiny shiny-reactivity

【解决方案1】：

根据 Mike 的评论，我从 shinyjs 和 shinyjs 参考手册中的这个简单示例开始，对 2 个按钮稍作修改：

library(shiny)
library(shinyjs)

ui = fluidPage(
       useShinyjs(), # Set up shinyjs
       actionButton("btn", "Click to show"),
       actionButton("btn1","Click to hide"),
       hidden(p(id = "element", "I was invisible"))
     )

server = function(input, output) {
  observeEvent(input$btn, {show("element")})
  observeEvent(input$btn1,{hide("element")})
  }

shinyApp(ui,server)

然后我根据下面的内容将其扩展为我在 OP 中的代码。请注意，对于每个触发selectInput() 隐藏而不是全局隐藏的用户操作，这仍然需要observeEvent()，而不是每次除了单击“删除”操作按钮之外的任何用户输入。我不确定这是否可能，但会继续研究。在任何情况下，多个observeEvents() 都不会是一个太糟糕的选择。

解决代码：

library(rhandsontable)
library(shiny)
library(shinyjs)

mydata <- data.frame('Col 1' = c(1,24,0,1), check.names = FALSE)
rownames(mydata) <- c('Term A','Term B','Term C','Term D') 

ui <- fluidPage(
  useShinyjs(), # set up shinyjs
  br(),
  rHandsontableOutput("mytable"),br(),
  fluidRow(
    column(1,actionButton("addCol", "Add",width = '70px')),
    column(1,actionButton("delCol","Delete",width = '70px')),
    column(3, hidden(uiOutput("delCol2")))) # hide selectInput()
)

server <- function(input,output,session){
  
  output$mytable = renderRHandsontable(dat())
  
  dat <- eventReactive(input$addCol, {
    if(input$addCol > 0){
      newcol <- data.frame(mydata[,1])
      names(newcol) <- paste("Col",ncol(mydata)+1)
      mydata <<- cbind(mydata, newcol)
    }
    rhandsontable(mydata,rowHeaderWidth = 100, useTypes = TRUE)
  }, ignoreNULL = FALSE)
  
  observeEvent(input$delCol, show("delCol2")) # clicking Delete button reveals selectInput()
   
  observeEvent(input$addCol, hide("delCol2")) # clicking Add hides selectInput()
  
  output$delCol2 <-renderUI({
    selectInput(
      "delCol3",
      label=NULL,
      choices=colnames(mydata),
      selected="Col 1"
    )
  })
  
}

shinyApp(ui,server)

【讨论】：