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


})

rpivotTable不适合我的Shiny Dashboard页面

1 个答案: