アクセスR光沢のあるselectizeInputラベル

Question

Rから光沢のあるselectizeInputコントロールの選択項目のラベルにアクセスするにはどうすればよいですか？以下の例では

、DMをユーザーがクリックすると名前、私は値のDMがselectizeInputでchoicesの値が名前のリストである場合

output$group_quote_type_holder <- renderUI({ 
quote_type_names <- c("Bid Price", "Ask Price", "DM Bid","DM Ask") 
quote_type_sql <- c("price_bid","price_ask","DM_bid","DM_ask") 
names(quote_type_sql) <- quote_type_names 
quote_type_named_list <- quote_type_sql 
selectizeInput("group_quote_type", 
      label = "Select a type:", 
      choices = quote_type_named_list, 
      selected = "DM_ask") 
})# end renderUI 

Answer 1

をDM_ask、ない依頼取得したいと思い、掲載している場合ユーザーに表示され、対応する値がサーバーに戻されます。

「DM Ask」を表示して「DM Ask」を返す場合は、ベクターquote_type_namesを使用してください。 ：

selectizeInput(
    inputId = "group_quote_type", 
    label = "Select a type:", 
    choices = c("Bid Price", "Ask Price", "DM Bid", "DM Ask"), 
    selected = "DM Ask" 
) 

EDIT

は申し訳ありませんが、私は理解していませんでした。私はquote_type_named_listはglobaenvで終了しないと仮定して、それはちょうどrenderUIで定義するので、このような何か？

library("shiny") 

ui <- fluidPage(
    uiOutput(outputId = "group_quote_type_holder"), 
    verbatimTextOutput(outputId = "res") 
) 

server <- function(input, output) { 

    quote_type_named_reac <- reactiveValues(x = NULL) 

    output$group_quote_type_holder <- renderUI({ 
    quote_type_names <- c("Bid Price", "Ask Price", "DM Bid","DM Ask") 
    quote_type_sql <- c("price_bid","price_ask","DM_bid","DM_ask") 
    names(quote_type_sql) <- quote_type_names 
    quote_type_named_list <- quote_type_sql 

    quote_type_named_reac$x <- quote_type_named_list 

    selectizeInput(inputId = "group_quote_type", 
        label = "Select a type:", 
        choices = quote_type_named_list, 
        selected = "DM_ask") 
    }) 

    output$res <- renderPrint({ 
    names(which(quote_type_named_reac$x == input$group_quote_type)) 
    }) 
} 

shinyApp(ui = ui, server = server)