Я пытаюсь создать Shiny Dashboard с нижним колонтитулом в dashboardSidebar
, который прилипает к нижней части области просмотра. Для этого я пытаюсь использовать собственные стили CSS, как предложено здесь (один из многих поисковых результаты при поиске в Google «бутстрап нижнего колонтитула»):
# create an example for the SO question on sticky footer
library(shiny)
library(shinydashboard)
# sidebar
so_sidebar = dashboardSidebar(
sidebarMenu(
menuItem(
text = "Some text."
)
),
# footer here
tags$footer(
tags$p("Footer message here."),
style = "
* {
margin: 0;
}
html, body {
height: 100%;
}
.wrapper {
min-height: 100%;
height: auto !important; /* This line and the next line are not necessary unless you need IE6 support */
height: 100%;
margin: 0 auto -155px; /* the bottom margin is the negative value of the footer's height */
}
.footer, .push {
height: 155px; /* .push must be the same height as .footer */
}
/*
Sticky Footer by Ryan Fait
http://ryanfait.com/
*/"
)
)
# compose the dashboard
so_ui = dashboardPage(
header = dashboardHeader(
title = "SO question"
),
sidebar = so_sidebar,
body = dashboardBody()
)
# run the application
shiny::shinyApp(
ui = so_ui,
server = shinyServer(function(input, output) {})
)
Поскольку я никогда раньше не работал с пользовательским CSS, я не уверен, что правильно использую CSS. Я следую инструкциям здесь.
Может ли кто-нибудь помочь с правильным CSS или с любыми другими предложениями по нижнему колонтитулу, который прилипает к нижней части видимой области на боковой панели Shiny Dashboard?