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