rpivotTable不适合我闪亮的仪表板页面

我正在我闪亮的仪表板中使用rpivoTable软件包。 问题是我的表有近25个变量（列），而我只能查看10列。其余的都是看不见的，也没有滑块来查看它们

最好的，我找到了一种方法——将css添加到该轴心

tags$head(tags$style( type = 'text/css',  '#pivot{ overflow-x: scroll; }')),
          rpivotTableOutput('pivot', width = "100%", height = "500px")

比如说

用户界面

服务器

df=data.frame(lapply(1:25,function(i)i=rnorm(20)))
colnames(df)=as.character(letters[1:25])

shinyServer(function(input, output,session) {

  output$pivot <- renderRpivotTable({
    rpivotTable(data = df)
  })


})

df=data.frame（lappy（1:25，函数（i）i=rnorm（20）））
colnames（df）=as.字符（字母[1:25]）
shinyServer（功能（输入、输出、会话）{
output$pivot感谢您的及时回复。但我的输出不仅仅是一个表及其完整的pivot结构。这是我的输出…output$pivot您如何在ui（或ui的服务器部分）中使用它？添加css，在其中编写如何显示您的
output$pivot
将示例添加到我的答案我正在仪表板选项卡中添加此pivot..tabItem（tabName=“trains”，fluidRow（br（），rpivotTable:：rpivotTable output（'pivot'））@stevenbaupré如果我理解正确，你需要像
——title:“Test”output:flexdashboard:：flex_dashboard:css:styles.css----`r}库（rpivotTable）rpivotTable（iris）`{overflow-x:scroll；}
在styles.css中
df=data.frame(lapply(1:25,function(i)i=rnorm(20)))
colnames(df)=as.character(letters[1:25])

shinyServer(function(input, output,session) {

  output$pivot <- renderRpivotTable({
    rpivotTable(data = df)
  })


})