2016-08-11 100 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