2016-08-11 37 views
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")) 
    )) 
} 

這是行不通的。

我需要幫助,把它放在我閃亮的用戶界面中。

回答

1

我打得試圖建立與HTML完整的閃亮的UI,鏈接,我做了什麼,到目前爲止是在這裏(它仍然需要一些調整): Demo Shiny App

有相當多的HTML的有所以我不想在這裏發佈。讓我知道這是否有助於我發佈他的代碼。

+1

這是很多的代碼和文件,所以我更願意推它在GitHub上,這是鏈接:https://github.com/vbeakovic/shiny_bootstrap請不要說它是一個沙箱項目我相信有bug在... –

+0

非常感謝 – komlan