Shiny - textInput

Question

光沢のあるselectinputオプションと同様に、textInputを使用している間に利用可能なオプションを提供する方法はありますか？

つまり、ユーザーが文字または文字を入力する場合、その文字または文字内で使用可能なすべてのオプションを指定する必要があります。私にはたくさんのオプションがあるので、selectinputの種類が減速し、入力の良いオプションではありません。したがって、私はtextInputを選択します。

ご意見はお寄せください。あなたはこの意志出力テキストボックス引数で複数= TRUE

selectInput(inputId, label, choices, multiple = TRUE) 

をselectInputを使用するのではなく、ドロップダウンし、ユーザーが文字内で使用可能なすべてのオプションを入力して開始してフィルタリングされますができ

おかげ

Answer 1

。 DTを使用して

Create a select list input control

Example

Answer 2

、あなたはいくつかの派手なものを行うことができます。次の例では、入力したテキストを含むすべてのオプションが一覧表示されています。表のセルをクリックすると、テキスト入力が表のセルのテキストで更新されます。また、テーブルの検索フィールドを使用することもできます。

library(shiny) 

shinyApp(
    ui = fluidPage(textInput("text", "Please input text:"), 
       DT::dataTableOutput('tbl')), 

    server = function(session, input, output) { 

    # all your choices for the textfield go into "text" column 
    allData <- data.frame(ID = '', text = c(paste0("Text",1:50))) 

    # table with only the texts that contain input$text 
    output$tbl = DT::renderDataTable(
     allData[grep(input$text, allData$text), ], 
     selection = 'none', 
     rownames = FALSE, 
     options = list(searchHighlight=T) 
    ) 

    # fill textInput after Click in Table 
    observeEvent(input$tbl_cell_clicked, { 
     info <- input$tbl_cell_clicked 

     if (is.null(info$value) || info$col != 1) return() 
     else { 
     updateTextInput(session, "text", value = info$value) 
     } 
    }) 
    } 
) 

Answer 3

selectinputは一種のこのケースで最良の選択肢でダウンしていない複数の選択肢を持つ入力

selectInputための良いオプションが遅くなります。遅いローディングは、サーバーにselectInputを移動することで簡単に管理できます。 ui.Rで

ジャストタイプ：

selectizeInput(inputId=..., label=..., choices = NULL, multiple = TRUE) 

とserver.Rで：

server <- function(input, output, session) { 
    updateSelectizeInput(session = session,inputId =...,choices=..., server = TRUE)} 

今、あなたが遅い読み込みに問題があってはなりません。