Получить данные из базы данных на основе выбора tabPanel. RShiny

Question

Я хотел бы получить данные на основе выбора вкладки. Например, если я нажимаю на вкладку A, она должна отображать вкладку данных и так далее. Мой код работает, только когда я закомментировал вывод данных в 2 вкладках. Кроме того, он отображает пустую страницу.

Ниже приведен код, который я использовал.

library(shiny)
library(DT)
library(dplyr)
library(RODBC)

server <- function(input, output, session) {

  output$table <- DT::renderDataTable({

    x <- req(input$tabs)
    print(x)
    sql <- paste0("EXEC [dbo].[usp_GET_Applications] @pCategory_Name=N'", input$tabs,"'")
    res = connectionBtS$sqlQuery(sql)
    dfData <- res$getResult()
    dfData <- data.frame(dfData) 

    DT::datatable(dfData %>% select("Application","Description","Contact", "Email"), escape = FALSE ,
                  options = list(
                    columnDefs = list(list(targets = c(4), visible = FALSE)),
                    rowCallback = JS(
                    "function(row, data) {",
                    "var full_text =  data[4] ",
                    "$('td:eq(3)', row).attr('title', full_text);",
                    "}"))
                  )
  })
}

ui <- shinyUI(fluidPage(h1(titlePanel("TITLE"))), 

  tabsetPanel(id="tabs",

    tabPanel("Tab A", value="A",DT::dataTableOutput("table")),

    tabPanel("Tab B", value="B", DT::dataTableOutput("table")),

    tabPanel("C", # value="C",DT::dataTableOutput("table")),

  )))

shinyApp(ui = ui, server = server)

Ждем помощи. Большое спасибо.

Answer 1

Согласно моему комментарию, вы не можете иметь объекты с одинаковым id, поэтому попробуйте визуализировать разные объекты

library(shiny)
library(DT)

ui <- fluidPage(
    h1(titlePanel("TITLE")),

    tabsetPanel(id="tabs",
                tabPanel("Tab A", 
                         value="A",
                         DT::dataTableOutput("table")
                ),
                tabPanel("Tab B", 
                         value="B", 
                         DT::dataTableOutput("table2")
                ),

                tabPanel("Tab C", 
                         value="C",
                         DT::dataTableOutput("table3")
                )
    )
)

server <- function(input, output, session) {

    table_data <- reactive({
        head(mtcars)
    })

    output$table <- DT::renderDataTable({
        table_data()
    })

    output$table2 <- DT::renderDataTable({
        table_data()
    })

    output$table3 <- DT::renderDataTable({
        table_data()
    })

}

shinyApp(ui = ui, server = server)