我可以在RShiny中使用带有tabsetpanel功能的DT包吗

Question

我正试图构建一个简单的闪亮应用程序，在不同的选项卡上显示两个不同的表。我在stackoverflow上读过不少类似的问题，但到目前为止还没有一个解决我的问题。

每次我在rstudio中运行应用程序时，我都会收到以下错误：

Error in divTag$attribs : $ operator is invalid for atomic vectors

注意：如果我只使用tablesetpanel显示一个表，就不会出现这个错误。

下面是我的代码

dataframe1  <- read.table(header=TRUE, text="
rime   point   sound
Y      Y       Y
N      N       Y
Y      Y       Y
NA     NA      NA
")
dataframe2  <- read.table(header=TRUE, text="
rime   point   sound
Y      Y       Y
N      N       Y
Y      Y       Y
NA     NA      NA
")

# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Standard Mastery Trackers"),
tabsetPanel(type="tab",
tabPanel('Kindergarten',
DT::DTOutput("dataframe1_table")),
tabsetPanel('First Grade',
DT::DTOutput("dataframe2_table"))
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$dataframe1_table <- DT::renderDT({
dataframe1
})
output$dataframe2_table <- DT::renderDT({
dataframe2
})
}
# Run the application
shinyApp(ui = ui, server = server)

有什么想法吗？

Answer 1

我更改了一些代码，它对我有效。

ui <- fluidPage(
titlePanel("Standard Mastery Trackers"),
tabsetPanel(
id = 'dataset',
tabPanel("Kindergarten", DT::dataTableOutput("region_kinder_sum")),
tabPanel("First Grade", DT::dataTableOutput("region_first_sum")),
tabPanel("Second Grade", DT::dataTableOutput("region_second_sum")),
tabPanel("Third Grade", DT::dataTableOutput("region_third_sum"))
)
)
server <- function(input, output) {
# choose columns to display
output$region_kinder_sum <- DT::renderDataTable({
DT::datatable(step_kinder_sum)
})
# sorted columns are colored now because CSS are attached to them
output$region_first_sum <- DT::renderDataTable({
DT::datatable(step_first_sum)
})
output$region_second_sum <- DT::renderDataTable({
DT::datatable(step_second_sum)
})
output$region_third_sum <- DT::renderDataTable({
DT::datatable(step_third_sum)
})
}
shinyApp(ui, server)