使用 Shiny 和 selectinput 添加 DT 扩展

Question

尝试将以下信息添加到 Shiny 中的数据表中，但在使用 selectinput 时出现错误：

Error: incorrect number of dimensions

library(DT)
library(readr)
library(jsonlite)
library(data.table)

gumdad <- fromJSON("data/boxes.json")
# Define UI for app  ----
ui <- fluidPage(

  # App title ----
  titlePanel("Box Scores"),

#FILTERS
selectInput("season",
            "Season:",
          c("All",
         unique(as.character(gumdad$season)))),
    # Main panel for displaying outputs ----
    mainPanel(
      # Output: Table----
      DT::dataTableOutput('tableone')

    )
  )

# Define server logic  ----
server <- function(input, output) {

output$tableone = renderDataTable({
  data <- datatable(gumdad, extensions = 'Buttons', rownames = FALSE, escape = FALSE, selection = 'none',
        colnames = c('Season', 'Date', 'Opponent', 'Result', 'UNC', 'Opp', 'OT', 'Location', 'Type','Box Score'),
        options = list(buttons = c('copy', 'csv'), paging = FALSE, dom = 'Bfrtip')
    )
    if (input$season != "All") {
data <- data[data$season == input$season,]
}
  return(data)
 })


gumdad$box <- sapply(gumdad$box, function(x)
            toString(tags$a(href=paste0("https://boxscorexxx.com/", x), "Box Score")))
}
shinyApp(ui = ui, server = server)

如何在使用正确尺寸自定义 datatable 的同时使用 selectInput？

Answer 1

在您的代码中，data 不是数据框，而是数据表。不可能像这样对其进行子集化：data[data$season == input$season,]。子集 gumdad 改为：

output$tableone = renderDT({
  data <- gumdad
  if (input$season != "All") {
    data <- data[data$season == input$season,]
  }
  datatable(data, extensions = 'Buttons', rownames = FALSE, escape = FALSE, selection = 'none',
                    colnames = c('Season', 'Date', 'Opponent', 'Result', 'UNC', 'Opp', 'OT', 'Location', 'Type','Box Score'),
                    options = list(buttons = c('copy', 'csv'), paging = FALSE, dom = 'Bfrtip')
  )
})

另请注意，您应该使用 renderDT 而不是 renderDatatable（或使用 DT::renderDatatable，与 renderDT 相同）。

使用 Shiny 和 selectinput 添加 DT 扩展

Add DT extensions using Shiny and selectinput

datatable

r

shiny

dt