show(), hide() 用法来自 shinyjs, Shiny

Question

我开发了一个闪亮的应用程序的简化版本。我想要的是能够在按下 Frame1 操作按钮时显示 dataframe1 并隐藏 dataframe2，并在按下 Frame2 操作按钮时再次显示 dataframe2 并隐藏 dataframe1。显然，我需要在同一位置打印表格。感谢您的帮助和抽出时间。

server.R

shinyServer(function(input, output, session) {

  data_for_use <- reactiveValues(d=NULL)

  observeEvent(input$actForFrame1,{
  data_for_use$dataFrame1 <- data.frame(firstColumn= c(1,3,5),secondColumn=c(2,4,6))})

  observeEvent(input$actForFrame2,{
  data_for_use$dataFrame2 <- data.frame(firstColumn= c(10,30,50),secondColumn=c(20,40,60))})

  output$dataFrame1 <- DT::renderDataTable({
    DT::datatable(data_for_use$dataFrame1)
  })

  output$dataFrame2 <- DT::renderDataTable({
    DT::datatable(data_for_use$dataFrame2)
  })

  observeEvent(input$actForFrame1,{
    show("dataFrame1")
    hide("dataFrame2")

  })

  observeEvent(input$actForFrame2,{
    show("dataFrame2")
    hide("dataFrame1")

  }) 
})

ui.R

library(shinyjs)
library(shiny)
library(DT)

shinyUI(pageWithSidebar(

  headerPanel("Test"),

  sidebarPanel(

    actionButton("actForFrame1", "Frame1"),
    actionButton("actForFrame2", "Frame2")
  ),

  mainPanel(
    useShinyjs(),
    wellPanel("Test",
              conditionalPanel(condition = "input.actForFrame1",
              DT::dataTableOutput("dataFrame1")
              ),
              conditionalPanel(condition= "input.actForFrame2",
              DT::dataTableOutput("dataFrame2"))
              )
  )
)
)

Answer 1

事实证明，正如@Dean Attali 友好地指出的那样，这些函数与其他一些包使用相同的命名空间，这反过来又导致它们无法执行它们的功能。

使用 shinyjs::show(); shinyjs::hide() 解决了这个问题。

show(), hide() 用法来自 shinyjs, Shiny

show(), hide() usage from shinyjs, Shiny

r

show

hide

shiny

shinyjs