반짝이는 응용 프로그램 대시 보드의 바닥 글 맞춤

Question

바닥 글과 페이지 중앙의 반짝이는 응용 프로그램 대시 보드에 바닥 글을 넣으려고합니다. 그러나 그것은 몸의 중심에오고 있습니다. 당신은 tagList에 dashbordPage을 포장 한 후 같은 tags$footer을 배치 할 수 있습니다

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') 
    }) 
}) 

Answer 1

: 또한 내가 페이지 여기

의 하단에 배치 할 수없는 나는 나의 코드 두 번째 인수는 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)