Панель выровнена в блестящей - PullRequest
Новая
       15

Панель выровнена в блестящей

1 голос
/ 26 апреля 2020

Ребята, я взял исполняемый код, который предоставляет блестящий, и добавил еще одну панель. Как мне оставить вторую панель под первой? Является ли это возможным ??? Большое спасибо! 

library(shiny)

ui <- fluidPage(


    titlePanel("Old Faithful Geyser Data"),

    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30)
        ),

        sidebarLayout(
            sidebarPanel(
                sliderInput("bins",
                            "Number of bins:",
                            min = 1,
                            max = 20,
                            value = 30),
            ),
        mainPanel(
           plotOutput("distPlot")
        )
    )
))

server <- function(input, output) {

    output$distPlot <- renderPlot({
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

Большое спасибо, друзья!

1 Ответ

1 голос
/ 26 апреля 2020

Вам не нужны дополнительные sidebarLayout и sidebarPanel. Вы можете просто поместить второй ползунок ниже первого. tags$hr() здесь, чтобы визуально отделить их, если вам нужно. 

  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30),
      tags$hr(),
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 20,
                  value = 30)
    )
...