Блестящий макет - как добавить нижний колонтитул?

Question

Как добавить примечания нижнего колонтитула или отказ от ответственности в пользовательском интерфейсе Shiny? Это мой текущий макет,

shinyUI(
    pageWithSidebar(

    headerPanel("My Title"), 

    sidebarPanel("sidebar"), 

    mainPanel("hello world") 
) 
) 

Я проверил это page но нет упоминания об этом. Есть идеи?

Что мне нужно,

My Title 

sidebar hello world (plots) 

---------------------------- 

     disclaimer 

Answer 1

Вот пример для других Shiny счастливых людей, чтобы использовать.

Обратите внимание, что я обновил приведенный выше пример для sidebarLayout как ?pageWithSidebar помощи состояний:

pageWithSidebar - Эта функция устарела. Вы должны использовать fluidPage вместе с sidebarLayout для реализации страницы с боковой панелью.

Базовый пример сноски

Я сделал например, все в один app.r стиле, чтобы люди могли проверить это, но если у вас есть ui.R файла просто добавить строку как раз перед концом вашего fluidPage вызова , Я использую горизонтальное правило (hr) непосредственно перед нижним колонтитулом, чтобы выделить нижний колонтитул, но это зависит от вас. Я замечаю, что navbarPage имеет параметр заголовка и нижнего колонтитула, который вы можете установить.

# app.R 
library(shiny) 

ui<- shinyUI(
    fluidPage(title = "Footer example App", 

    sidebarLayout(sidebarPanel("sidebar", 
           selectInput("pet", "Pet", 
              c("Cat", "Dog", "Fish")) 
       ), 
        mainPanel("hello world") 
       ), 
    # WHERE YOUR FOOTER GOES 
    hr(), 
    print("~~~my disclaimer~~~~") 
) 
) 

server <- function(input, output) { 
    # empty for minimal example 
} 

shinyApp(ui=ui, server = server) 

Результат

Более продвинутая с помощью footer.html

У меня есть свой файл footer.html с CSS и логотипом стилистики. Поместите файл footer.html в то же место, что и ваши блестящие файлы, и используйте includeHTML. Я обертываю div, поэтому любой css получает.

В приведенном выше примере, замените строку:

print("~~~my disclaimer~~~~") 

С:

div(class = "footer", 
     includeHTML("footer.html") 
    ))