闪亮的应用程序仪表板中的页脚对齐

时间:2016-08-14 06:41:51

标签: r dashboard shiny

我正在尝试在页面底部和中心的闪亮应用信息中心中插入页脚。但它正在身体的中心。此外,我无法将其放在页面底部

这是我的代码:

library(shiny)
library(shinydashboard)
library(DT)
library(ggvis)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard"),
  dashboardSidebar(sidebarMenu(
    menuItem("Instructions", tabName = "genIns", icon = icon("info-circle")),
    menuItem("Data", tabName = "data", icon = icon("table"))

  )),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "genIns",
              fluidPage(
                titlePanel("General Instruction will go here"))
      ),
      # Second tab content
      tabItem(tabName = "data",
              sliderInput("bins",
                          "Number of bins:",
                          min = 1,
                          max = 50,
                          value = 30),
              plotOutput("distPlot")
              )

    ),
    tags$footer("My footer", align = "center")
  )
)

server.ui

shinyServer(function(input, output, session) {

  output$distPlot <- renderPlot({
    x    <- faithful[, 2]  # Old Faithful Geyser data
    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')
  })
})

1 个答案:

答案 0 :(得分:6)

您可以将dashbordPage打包到tagList,然后将tags$footer作为第二个参数放到tagList。您还可以使用css进一步修改页脚的样式。

完整示例:

library(shiny)
library(shinydashboard)
library(DT)
library(ggvis)
library(shiny)

ui <- tagList(
  dashboardPage(
    dashboardHeader(title = "Dashboard"),
    dashboardSidebar(sidebarMenu(
      menuItem("Instructions", tabName = "genIns", icon = icon("info-circle")),
      menuItem("Data", tabName = "data", icon = icon("table"))

    )),
    dashboardBody(
      tabItems(
        # First tab content
        tabItem(tabName = "genIns",
                fluidPage(
                  titlePanel("General Instruction will go here"))
        ),
        # Second tab content
        tabItem(tabName = "data",
                sliderInput("bins",
                            "Number of bins:",
                            min = 1,
                            max = 50,
                            value = 30),
                plotOutput("distPlot")
        )

      )

    )

  ),#end dashboardPage
  tags$footer("My footer", align = "center", style = "
              position:absolute;
              bottom:0;
              width:100%;
              height:50px;   /* Height of the footer */
              color: white;
              padding: 10px;
              background-color: black;
              z-index: 1000;")

)#end tagList


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

  output$distPlot <- renderPlot({
    x    <- faithful[, 2]  # Old Faithful Geyser data
    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')
  })
})

shinyApp(ui, server)