具有多个输入的闪亮表答案

【问题标题】：shiny tables with more than one input具有多个输入的闪亮表
【发布时间】：2018-10-28 19:30:58
【问题描述】：

我想在具有多个输入的数据集下方创建闪亮的输出表。我想选择型号、细分市场和年份。我怎样才能做到这一点？有没有办法放置一个按钮并对显示的数据进行排序？谢谢。

df=data.frame(year=c(2018,2018,2017,2017,2017),model=c("mazda","ford","ford"
,"toyotta","mazda"),segment=c("c1","ax","ay","gv","c1"),sales=c(23,54,65,78,54))

【问题讨论】：

标签： sorting input shiny

【解决方案1】：

精彩的library(DT) 满足所有提到的要求，无需定义任何输入或自定义过滤器逻辑：

library(shiny)
library(DT)

ui <- basicPage(
  h2("Car data"),
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {

  df = data.frame(
    year = c(2018, 2018, 2017, 2017, 2017),
    model = c("mazda", "ford", "ford"
              , "toyotta", "mazda"),
    segment = c("c1", "ax", "ay", "gv", "c1"),
    sales = c(23, 54, 65, 78, 54)
  )

  output$mytable = DT::renderDataTable({
    df
  }, filter = "top", options = list(pageLength = 30))
}

shinyApp(ui, server)

【讨论】：

谢谢，但是年栏我只能看到20个。我怎样才能让它变大？
不确定您的目标是什么？请参阅随附的屏幕截图。
也许您在谈论显示的行数？您可以设置 pageLength 选项。此外，您可以使用分页按钮在表格中导航。我将示例编辑为 pageLength = 30 但在您提供的数据中只有 5 行可用。