0

これは、非常に基本的な光沢のあるアプリのコードです。これには、光沢のあるパッケージと、github の光沢のあるライブラリが必要です: https://github.com/AnalytixWare/ShinySky

再現可能な例を次に示します。

 testing <- function() {
  shinyApp(ui = fluidPage(
   sidebarLayout(
    sidebarPanel(
      select2Input("select2Input3",
                   "Multiple Select 2 Input",
                   choices = c("a","b","c"),
                   selected = c("b","a"), 
                   type = "select")  
      ),mainPanel(
        ))
  ), server = function(input, output){})
}

testing()

c("a", "b", "c") という選択肢があるにもかかわらず、ドロップダウンで b のみが選択され、他に選択肢がない理由がわかりません。selected = "b" も試しましたが、うまくいきませんでした。光沢のある空の例を見ましたが、何が欠けているのかわかりません。ビデオ チュートリアルでは、同じタイプのドロップダウンが表示されましたが、「b」が選択されていましたが、ユーザーはドロップダウンで「a」または「c」をクリックすることもできました: https://www.youtube.com/watch?feature=player_embedded&v= 9T4F-j76Vf0&noredirect=1

明らかな何かが欠けているかもしれませんが、今は見つけられないようです。ありがとうございました！

4

1 に答える 1

1

select2Inputにパラメータ「multiple」を追加し、TRUEに設定する必要があります（ビデオのように）。デフォルトでは FALSE です。

select2Input("select2Input3",
               "Multiple Select 2 Input",
               choices = c("a","b","c"),
               selected = c("b","a"), 
               type = "select",
               multiple=TRUE)

編集：私にとってもうまくいきません。select2Input の更新が必要な場合があります。彼の例 Shinysky::run.shinysky.example() は、Select2 では機能しなくなりました。

于 2015-07-14T16:09:41.323 に答える