如果语句在闪亮的应用程序中连续 2 次不起作用答案

【问题标题】：If statement does not work 2 times in a row in a shiny app如果语句在闪亮的应用程序中连续 2 次不起作用
【发布时间】：2020-05-26 00:43:37
【问题描述】：

我有一个闪亮的应用程序，它显示 3 个标签。

Documents 选项卡中有一个表格。当用户单击第一行的setosa 时，他将移动到View 选项卡（仅在单击发生时可见）并看到一个表格。当用户点击第二行的setosa 时，他正在移动到View 选项卡并看到另一个表。此外，这些表格必须仅在 View 选项卡上可见。

该应用程序似乎运行良好，但如果我点击第一行 setosa ，移动到 View 选项卡，再次返回到 Documents 选项卡并尝试再次单击第一行 setosa 没有任何反应.我必须单击第二行 setosa 才能使其再次工作。第二行 setosa 也是如此。

简而言之，我不能连续两次执行相同的操作，我觉得我的if 条件对此负责。

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(shinydashboardPlus)
library(DT)
library(shinyjs)

shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(title = span(strong("ArmorDoc"),style = "color: black;")

    ),
    sidebar = dashboardSidebar(

    ),
    body = dashboardBody(

      useShinyjs(),
      tags$hr(),
      tabsetPanel(
        id ="tabA",
        type = "tabs",
        tabPanel("Documents",icon = icon("accusoft"),
                 tags$hr(),
                 DTOutput("dt1")),
        tabPanel("View", icon = icon("table"),
                 DTOutput("dt3")
        ),
        tabPanel("Upload", icon = icon("table")

        )

      )

    )),
  server = function(input, output,session) {
    observeEvent(input$tabA, {
      if(input$tabA == "Documents"|input$tabA=="Upload"){
        hideTab("tabA", "View")
      }
    })



    observeEvent(input$dt1_cell_clicked, {
      # alternative: input$dt1_cells_selected
      if (req(input$dt1_cell_clicked$value) == "setosa") {
        showTab("tabA", "View")
        updateTabsetPanel(session, inputId = "tabA", selected = "View")
      }
    })

    output$dt1 <- DT::renderDataTable({
      DT::datatable(
        iris[1:2,],
        filter = "top",
        options = list(searchHighlight = TRUE, search = list(search = ""),pageLength = 5,columnDefs = list(list(className = 'dt-left', targets = "_all"))),rownames= FALSE,
        selection = list(mode = 'single', target = 'cell')
      ) 

    })


    output$dt3 <- renderDT(server = F,
                           if(input$dt1_cell_clicked$row == 1&input$tabA=="View"){

                             datatable(iris)
                           }
                           else if(input$dt1_cell_clicked$row == 2&input$tabA=="View"){
                             datatable(mtcars)
                           }
                           else{
                             return(NULL)
                           }
    )


  }
)

【问题讨论】：

标签： r shiny dt

【解决方案1】：

可以在here找到答案。与observeEvent() 中的Proxy 方法相同。

【讨论】：