R 반짝이는 응용 프로그램에서 입력 내용을 선택하는 중에 인용 된 문자열을 어떻게 가질 수 있습니까?

Question

Shiny selectInput을 문자열 목록으로 업데이트하려고합니다. 일부 문자열은 따옴표로 묶여 있습니다. selectize = TRUE를 사용하면 따옴표로 묶은 문자열은 선택 항목 사이에 나타나지 않으며 selectize = FALSE를 사용하면 나타나지만 선택할 수는 없습니다. 누군가가이 문제를 해결하는 방법을 말해 줄 수 있습니까? (. 나는 문자열 모두 인용 인용되지 않은 버전이 유효한 선택이 될 수 있기 때문에 따옴표를 허용해야)

내 코드 :

내가 성공을 가지고

library(shiny) 
runApp(list(
    ui=fluidPage(
    titlePanel("Problem with Selecting Quoted String"), 
    sidebarLayout(
     sidebarPanel(
      selectInput(
       "chooser", 
       label = "Choose", 
       choices = "", 
       selectize = TRUE 
       ) 
      ), 
     mainPanel(
      textOutput("text") 
      ) 
     ) 
    ), 
    server=function(input, output, session) { 
    #  choices <- load_choices_from_table() 
    choices <- c("\"APPLE\"", "APPLE", "\"BOY\"", "CAT") 
    updateSelectInput(session, "chooser", choices = choices) 
    output$text <- renderText({ 
     paste("You chose:", input$chooser) 
    }) 
} 
) 
) 

Answer 1

:

choices <- c("\'APPLE\'", "APPLE", "\'BOY\'", "CAT") 

그리고 기본값은 비례 간격이므로 다음과 같이 큰 따옴표를 사용합니다.

choices <- c("\'\'APPLE\'\'", "APPLE", "\'\'BOY\'\'", "CAT") 

추가 도움말 페이지가 나오지 만 첫 번째 페이지가 표시되지만 해당 항목을 선택할 수는 없습니다. 나는 그것이 받아 들일 수있는 선택이 아닌 도움이되는 주석의 초기 표시를 허용하는 "특징"인지 궁금해하기 시작했습니다.

choices <- I(c("\"APPLE\"", "APPLE", "\'\'BOY\'\'", "CAT"))