闪亮的布局 - 如何添加页脚免责声明？答案

【问题标题】：Shiny layout - how to add footer disclaimer?闪亮的布局 - 如何添加页脚免责声明？
【发布时间】：2015-07-24 03:54:41
【问题描述】：

如何在 Shiny 的 UI 中添加页脚注释或免责声明？这是我目前的布局，

shinyUI(
  pageWithSidebar(

    headerPanel("My Title"),

    sidebarPanel("sidebar"),

    mainPanel("hello world")
)
)

我已经检查了这个page，但没有提到这一点。有什么想法吗？

我需要的是，

My Title

sidebar   hello world (plots)

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

      disclaimer

【问题讨论】：

只需使用fluidPage 布局，遵循侧边栏示例，但在其下方使用fluidRow。除非有我遗漏的并发症？
@teelou 您能否发布一个可重现的示例来回答您的问题？谢谢！

标签： html r shiny

【解决方案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

我有自己的带有 css 和徽标样式的 footer.html 文件。将您的 footer.html 文件与闪亮文件放在同一位置并使用includeHTML。我用一个 div 包装，所以任何 css 都会被拾取。

在上面的例子中，替换行：

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

与：

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

【讨论】：