Я пытаюсь создать веб-страницу для отображения некоторых сюжетов с использованием блеска R studio. Шаблон был построен как обычная веб-страница с использованием HTML и CSS в отдельном файле. Поскольку существует 5/6 сюжет для публикации, я бы хотел разместить блестящую навигационную панель, где обычно отображается меню сайта, однако в интернете нет доступных документов, объясняющих, как это сделать.
Как должен вызываться блестящий элемент navbar в файле HTML?
library(shiny)
library(plotly)
shinyApp(
ui = shinyUI(htmlTemplate("template.html"),
navmenu = navbarMenu("Wellcome",
tabPanel("Results1"),
tabPanel("Results2")
)),
server = shinyServer(function(input, output) {
data1 <- data.frame(iris)
output$summary <- renderPrint(summary(data1))
output$plot1 <- renderPlot(plot(data1[,c(2,3)]))
output$plot2 <- renderPlot(plot(data1[,c(3,4)]))
})
)
<!-- MainMenu-Area -->
<nav class="mainmenu-area" data-spy="affix" data-offset-top="200">
<div class="container-fluid">
<div class="navbar-header">
<button type="button" class="navbar-toggle" data-toggle="collapse" data-target="#primary_menu">
<span class="icon-bar"></span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
</button>
<a class="navbar-brand" href="#"><img src="images/mensa_logo.png" alt="Logo"></a>
</div>
<!-- NAVIGATION BAR -->
<div class="collapse navbar-collapse" id="primary_menu">
{{navmenu}}
<!--
<ul class="nav navbar-nav mainmenu">
<li><a href="index.html#home_page">About MENSA</a></li>
<li><a href="index.html#about_page">Result 1</a></li>
<li><a href="index.html#features_page">Result 2</a></li>
<li><a href="index.html#gallery_page">Result 3</a></li>
<li><a href="index.html#price_page">Result 4</a></li>
<li><a href="index.html#questions_page">Result 5</a></li>
<li class="active"><a href="blog.html">Result 6</a></li>
<li><a href="index.html#contact_page">Result N</a></li>
</ul>
-->
</div>
</div>
</nav>
<!-- MainMenu-Area-End -->