2016-06-12 13 views

答えて

4

fluidRowcolumnを使用できます。ここに例があります。総計が12になる限り、列の幅を調整できます。

library(shiny) 

ui <- shinyUI(fluidPage(

    titlePanel("Old Faithful Geyser Data"), 

    fluidRow(
    column(2, 
      sliderInput("bins", 
         "Number of bins:", 
         min = 1, 
         max = 50, 
         value = 30), 
      style="overflow-x: scroll; overflow-y: scroll"), 
    column(8, 
      plotOutput("distPlot")), 
    column(2, 
      textInput("test", "Test"), 
      style="overflow-x: scroll; overflow-y: scroll") 
    ) 
)) 

server <- shinyServer(function(input, output) { 

    output$distPlot <- renderPlot({ 
     x <- faithful[, 2] 
     bins <- seq(min(x), max(x), length.out = input$bins + 1) 

     hist(x, breaks = bins, col = 'darkgray', border = 'white') 
    }) 
}) 

shinyApp(ui = ui, server = server) 
+0

こんにちは、ありがとうございます。私は20のsliderinputと20のテキスト入力を追加して、垂直スクロールをテストしました。スクロールしません。コードに何かを追加する必要がありますか?ありがとう。 – webbeing

+0

スタイルに 'height:400px;'を追加するだけです。 –

+0

美しい、ありがとう! – webbeing

関連する問題