Shiny более rMarkdown, как обрабатывать оба шаблона

Question

Я создаю этот пост, потому что мне нужно ваше руководство, чтобы выбрать лучшие варианты.

Я уже создал сайт, используя rmarkdown, как этот https://bookdown.org/yihui/rmarkdown/rmarkdown-site.html

name: "my-website"
navbar:
  title: "WebPage"
  left:
    - text: "Home"
      href: index.html
    - text: "MOP"
      href: MOP.html
    - text: "About"
      href: about.html
  right:    
    - icon: fa-bug fa-lg
      href: about.html
    - icon: fa-question fa-lg
      href: MOP.html

> output:
  html_document:
    theme: cerulean
    highlight: textmate

Я также создал блестящее приложение.

 title = "APP",theme = shinytheme("cerulean")
  dashboardPage(
                            header,
                            dashboardSidebar(
                                sidebar
                            ),
                            dashboardBody(
                                shinyDashboardThemes(
                                    theme = "blue_gradient"
                                ),
                                tabItems( 
                                 ...

Оба великолепны, и они работают без каких-либо проблем. У меня только одна ссылка в Markdown на блестящее приложение (откройте новое окно).

Моя цель теперь объединяет оба в одном веб-сайте.

1 , Мой первый подход создал новую страницу rMarkdown, добавив блестящие внешние приложения https://bookdown.org/yihui/rmarkdown/shiny-embedded.html#external -приложения

Проблемы:

• Я теряю шаблон блеска, все настройки очень плохие

• Некоторые функции, такие как sparkalert, не работают

2. Мой второй подход заключался в следующем: вместо использования rmarkdown для вызова блестящего я использовал глянцевый для вызова rmarkdown (отменить .yml).

  navbarPage(title = "APP",theme = shinytheme("cerulean"),
               tabPanel("Home",htmlOutput("renderedReport")),
               #tabPanel("Home3",includeHTML("scripts/markdown/Home.html")),
               tabPanel("Tool",
                          dashboardPage(
                            header,
                             ...

     output$renderedReport<-   renderUI({
          includeMarkdown(knitr::knit('scripts/markdown/Home.Rmd'))
    })

Если я использую tabPanel("Home",htmlOutput("renderedReport")), я теряю тема (cerulean) для уценки, это ограничивает мои возможности создавать красивые документы (лучшее решение, которое я нашел до сих пор).

Если я использую tabPanel("Home3",includeHTML("scripts/markdown/Home.html'")) то же самое, что и раньше (например, yml) блестящее пребывание испортилось.

Я просто хочу веб-сайт (каждая вкладка не имеет каких-либо зависимости от других вкладок). Пример:

• вкладка 1 (обычная страница уценки только с текстом и изображениями)
• вкладка 2 (блестящее приложение)
• вкладка 3 (flex_dashboard)
• вкладка 4 (обычная страница с уценкой, содержащая только текст и изображения)

Какой лучший способ сделать это без потери тем?