3

奇妙なことに、以下の光沢のあるアプリを実行すると、ページの右側にスクロールバーが表示されます。

shinyUI(
  fluidPage(
    tabsetPanel(
      tabPanel("Plot", htmlOutput("test")),
      tabPanel("Summary"),
      tabPanel("Table")
    )
  )
)

library(googleVis)
library(shiny)

shinyServer(function(input, output, session) {
  output$test <- renderGvis({
     gvisBubbleChart(Fruits, idvar="Fruit", 
                            xvar="Sales", yvar="Expenses",
                            colorvar="Year", sizevar="Profit",
                            options=list(
                              hAxis='{minValue:75, maxValue:125}',
                              vAxis='{minValue:0, maxValue:250}'
                              ,height=600,width=600)
     )  
  }) 
})

tabsetPanel レイアウトから pageWithSidebar レイアウトに変更すると、プロットはスクロールバーなしで正常に表示されます。別のメモとして、オプション リストで幅と高さを指定しないと、垂直方向と水平方向の 2 つのスクロールバーが表示されます。

スクロールバーなしでtabsetPanels内でgoogleVisチャートを使用することは可能ですか?

4

1 に答える 1

3

呼び出しに引数をoverflow追加することで、を非表示に設定できます。styletabPanel

library(googleVis)
library(shiny)
runApp(
  list(ui = fluidPage(
    tabsetPanel(
      tabPanel("Plot", htmlOutput("test"), style = "overflow:hidden;"),
      tabPanel("Summary"),
      tabPanel("Table")
    )
  )
  , server = function(input, output, session) {
    output$test <- renderGvis({
      gvisBubbleChart(Fruits, idvar="Fruit", 
                      xvar="Sales", yvar="Expenses",
                      colorvar="Year", sizevar="Profit",
                      options=list(
                        hAxis='{minValue:75, maxValue:125}',
                        vAxis='{minValue:0, maxValue:250}'
                        ,height=600,width=600)
      )  
    }) 
  })
)

ここに画像の説明を入力

于 2014-09-26T12:00:47.810 に答える