2017-05-01 11 views
1

私はR Shinyアプリケーションでブートストラップカルーセルを使用しようとしています。私は各スライドにボタン、テキスト出力、プロット(プロッ​​ト)を入れたい。この時点でR Shiny出力がブートストラップカルーセルでレンダリングされない

、カルーセル自体は素晴らしい作品と作品内部の2つのプロットを持ってFIRST「スライド」。しかし、第四「スライド」に第二に、テキスト出力とプロットが現れボタンをレンダリングしませんが、を動作しません、私はのみは見ることができますUIコンポーネントなパネルボックスなど。

私はプロットとテキストの出力をカルーセルに移動する前に、それらは機能します。私はそれらをカルーセルから外に出した後にそれを行います。

次は私のui.Rです:

div(
id = "snapshot_carousel", 
class="carousel slide", 
`data-ride`="carousel", 
`data-interval`="false", 
tags$ol(
    class="carousel-indicators", 
    tags$li(
     `data-target`="#snapshot_carousel", 
     `data-slide-to`="0", 
     "Slide 1", 
     class="active" 
    ), 
    tags$li(
     `data-target`="#snapshot_carousel", 
     `data-slide-to`="1", 
     "Slide 2" 
    ), 
    tags$li(
     `data-target`="#snapshot_carousel", 
     `data-slide-to`="2", 
     "Slide 3" 
    ), 
    tags$li(
     `data-target`="#snapshot_carousel", 
     `data-slide-to`="3", 
     "Slide 4" 
    ) 
), 
div(
    class="carousel-inner", 
    div(
     class="item active", 
     div(
      class="well well-lg", 
      div(
       class="panel-body", 
       column(
        width = 3, 
        wellPanel(
         class = 'panels', 
         id = 'actv_loan_well', 
         h4("Active Accounts"), 
         hr(), 
         tags$div(textOutput("t1"), class = "med_number") 
        ) 
       ), 
       column(
        width = 9, 
        wellPanel(
         class = 'panels', 
         column(
          width = 3, 
          h4("Active Balance"), 
          hr(), 
          tags$div(textOutput("t1"), class = "med_number") 
         ), 
         column(
          width = 9, 
          plotlyOutput("actv_bal_hist", height = "100px") 
         ) 
        ) 
       ) 
      ) 
     ) 
    ), 
    div(
     class="item", 
     div(
      class="well well-lg", 
      div(
       class="panel-body", 
       fluidRow(
        column(
         width = 6, 
         wellPanel(
          class = 'panels', 
          h4("Account Closed"), 
          hr(), 
          fluidRow(
           column(width = 9, 
             tags$div(textOutput("n_acct"), class = "big_number")), 
           column(width = 3, 
             actionButton("acct_closed", "", icon = icon('plus-circle', 'fa-fw')) 
           ) 
          ) 
         ) 
        ), 
        column(
         width = 6, 
         wellPanel(
          class = 'panels', 
          h4("Balance Closed"), 
          hr(), 
          tags$div(textOutput("bal_close"), class = "big_number"), 
          plotlyOutput("bal_close_plot", height = "250px")  
         ) 
        ) 
       ) 
      ) 
     ) 
    ), 
    div(
     class="item", 
     div(
      class="well well-lg", 
      div(
       class="panel-body" 
      ) 
     ) 
    ), 
    div(
     class="item", 
     div(
      class="well well-lg", 
      div(
       class="panel-body" 
      ) 
     ) 
    ) 
)#, 
# a(
#  class="left carousel-control", 
#  href="#snapshot_carousel", 
#  `data-slide`="prev", 
#  span(
#   class="glyphicon glyphicon-chevron-left" 
# ), 
#  span(
#   class="sr-only", 
#   "Previous" 
# ) 
#), 
# a(
#  class="right carousel-control", 
#  href="#snapshot_carousel", 
#  `data-slide`="next", 
#  span(
#   class="glyphicon glyphicon-chevron-right" 
# ), 
#  span(
#   class="sr-only", 
#   "next" 
# ) 
#) 

答えて

1

私はCSSを使用して解決策を考え出しました。それは最良の解決策ではないかもしれませんが、似たようなニーズを持つ人々を助けることができればうれしいです。

解決策は、カルーセルクラスをタブセットパネルに追加することです。スライディングエフェクトと矛盾するスイッチタブの場合は、各li(a())に#href = "#tabs-1"があることに注意してください。それは私が取った後に動作します

div(
id = "my_carousel", 
class="carousel slide", 
`data-ride`="carousel", 
`data-interval`="false", 
tags$ul(
    id = "stab", 
    class = "nav nav-pills nav-justified shiny-tab-input", 
    tags$li(
     class = "active", 
     `data-target`="#my_carousel", 
     `data-slide-to`="0", 
     a(
      `data-toggle`="tab", 
      "Slide 1" 
     ) 
    ), 
    tags$li(
     `data-target`="#my_carousel", 
     `data-slide-to`="1", 
     a(
      `data-toggle`="tab", 
      "slide 2" 
     ) 
    ), 
    tags$li(
     `data-target`="#my_carousel", 
     `data-slide-to`="2", 
     a(
      `data-toggle`="tab", 
      "slide 3" 
     ) 
    ) 
), 
div(
    class="tab-content carousel-inner", 
    role="listbox", 
    div(
     class="item tab-pane active", 
     div(
      class="well well-lg", 
      div(
       class="panel-body" 
      ) 
     ) 
    ), 
    div(
     class="item tab-pane", 
     div(
      class="well well-lg", 
      div(
       class="panel-body" 
      ) 
     ) 
    ), 
    div(
     class="item tab-pane", 
     div(
      class="well well-lg", 
      div(
       class="panel-body" 
      ) 
     ) 
    ) 
) 
) 
関連する問題