r - rpivotTable 不适合我的 Shiny Dashboard 页面

Question

我在闪亮的仪表板中使用 rpivoTable 包。问题是我的表有接近 25 个变量（列），而我只能查看 10 个列。其余部分不在视线范围内，也没有滑块可以查看它们。

最好的，

Answer 1

我找到了一种方法 - 将 css 添加到该枢轴

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

例如

用户界面

library(shiny)
library(rpivotTable)
library(shinydashboard)
shinyUI(dashboardPage(
  dashboardHeader(title = "example"),
  dashboardSidebar(disable = T),
  dashboardBody(

      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)
  })


})