RMarkdown引导导航栏

install.packages("shiny")
install.packages("htmltools")

---
title: "引导导航栏示例"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
library(shiny)
library(htmltools)

# 定义导航栏
navbar <- tagList(
  tags$nav(
    class = "navbar navbar-expand-lg navbar-light bg-light",
    tags$a(
      href = "#",
      class = "navbar-brand",
      "引导导航栏示例"
    ),
    tags$nav(
      class = "navbar-nav mr-auto",
      tags$li(class = "nav-item")(
        tags$a(
          href = "#",
          class = "nav-link",
          "首页"
        )
      ),
      tags$li(class = "nav-item")(
        tags$a(
          href = "#",
          class = "nav-link",
          "关于"
        )
      ),
      tags$li(class = "nav-item")(
        tags$a(
          href = "#",
          class = "nav-link",
          "联系我们"
        )
      )
    )
  )
)

# 定义页面内容
page_content <- tagList(
  tags$h1("欢迎来到引导导航栏示例"),
  tags$p("这是一个使用RMarkdown和Shiny创建的引导导航栏示例。")
)

# 组合导航栏和页面内容
output$navbar <- renderUI({
  navbar
})

output$content <- renderUI({
  page_content
})

knitr::opts_chunk$set(echo = TRUE)

rmarkdown::render("index.Rmd")