2
我的目标是在我的UI中包含引导传送带。我想这样做this但引导旋转木马 我闪亮的UI是这样的:在Shiny应用程序中的引导传送带
source("entete.R")
source("accueil.R")
library(shiny)
shinyUI(
navbarPage("DPEE",tagList(
tags$head(
includeCSS("www/bootstrap.css"),
includeCSS("www/bootstrap.min.css"),
tags$script(src = "www/bootstrap.js"),
tags$script(src = "www/query-ui-1-11-4.min.js"),
tags$script('$(function(){$(".jui-tip").tooltip();});'),
tags$script('$(function(){$("div.divinput").accordion({
collapsible: true,heightStyle: "content" });});')
),
tags$div(class = "container-fluid", entete())),
tabPanel("Accueil", accueil()),
navbarMenu("Annuaire",
tabPanel("Prescolaire"),
tabPanel("Primaire"),
tabPanel("Secondaire 1"),
tabPanel("Secondaire 2")
)
))
,并在那里 ACCUEIL是引导转盘。
accueil = function(){
tags$div(id = "moncarousel", class = "carousel slide",
tags$ol(class = "carousel-indic",
tags$li(`data-target` = "#moncarousel",`data-slide-to`="0", class="active"),
tags$li(`data-target`="#moncarousel",`data-slide-to` = "1"),
tags$li(`data-target`="#moncarousel",`data-slide-to`= "2")
),
tags$div(class="carousel-inner",
tags$div(class = "item active",
tags$img(src = "www/Koala1.jpg", class= "imag-responsive")),
tags$div(class = "item",
tags$img(src = "www/Koala2.jpg", class= "imag-responsive")),
tags$div(class = "item",
tags$img(src = "www/Koala3.jpg", class= "imag-responsive"))
))
}
这是行不通的。
我需要帮助,把它放在我闪亮的用户界面中。
这是很多的代码和文件,所以我更愿意推它在GitHub上,这是链接:https://github.com/vbeakovic/shiny_bootstrap请不要说它是一个沙箱项目我相信有bug在... –
非常感谢 – komlan