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

Question

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

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更高级

我有自己的带有css和徽标样式的footer.html文件。将footer.html文件放在与闪亮文件相同的位置，然后使用includeHTML。我用div包装，所以任何css都被拿起来。

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

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

使用：

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