Shiny 中的嵌套 fluidRow 布局

Question

我想创建如上图所示的 fluidPage。

这是我的 ui.R 代码：

shinyUI(fluidPage(
                fluidRow(
                            column(6,
                                   selectInput(inputId="StoreName", label=h3("Choose Store"),choices = vStores),
                                  ),
                            column(6,
                                   strong(h3("Latest Orders Status")),
                                   DT::dataTableOutput('getLatestOrdStatus'),
                                   style = "height:500px; overflow-y: scroll;"
                                  )
                          ),
                fluidRow(   
                            column(6,     
                            selectInput(inputId="OrderType", label=h3("Choose Order Type"),choices = vOrdTypes)
                                )
                        ),
                fluidRow(
                            column(5, h4("Daily Orders Count By Order Type"),
                                   dateRangeInput(inputId="daterange", label="Pick a Date Range:", start = Sys.Date()-30, 
                                                  end = Sys.Date()),
                                   plotOutput("OrdPlotByType")
                                   )
                        )

             )
 )

Answer 1

下面的代码将为您提供类似的布局。您还可以通过从 shiny

探索这个 link 来进一步改进

library(shiny)
library(DT)
library(ggplot2)

data(mtcars)
ui <- fluidPage(
  fluidRow(column(12,  style = "background-color:#999999;",

  fluidRow(column(6,
                  fluidRow( column(6, selectInput(inputId = "StoreName", label = h3("Select Input 1"),choices = c('a', 'b')))),
                  fluidRow(column(6, selectInput(inputId = "OrderType", label = h3("Select Input 2"),choices = c('a', 'b')))),
                  fluidRow(column(12, h4("Plot Output"), plotOutput('plot'))
                           )) ,
  column(6, strong(h3("Table Output")),dataTableOutput('table')
         )  
  )
  )
  )
)


server <- function(input, output) {
  data <- data.frame(
    name = c("A","B","C","D","E") ,  
    value = c(3,12,5,18,45) )
  output$table <- renderDataTable(head(mtcars))
  output$plot <- renderPlot(
    ggplot(data, aes(x = name, y = value)) + 
      geom_bar(stat = "identity")
  )
}
shinyApp(ui, server)

Shiny 中的嵌套 fluidRow 布局

Nested fluidRow layout in Shiny

shiny

shinydashboard

shinyjs

shiny-reactivity

shinyapps