r - rpivotTable が Shiny ダッシュボード ページに収まらない

Question

光沢のあるダッシュボードで rpivoTable パッケージを使用しています。問題は、テーブルに 25 近くの変数 (列) があるのに、10 列しか表示できないことです。残りは表示されておらず、それらを表示するスライダーもありません。

一番、

Answer 1

私は1つの方法を見つけます-そのピボットにcssを追加します

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

例えば

UI

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


})