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") )

如何在R闪亮应用程序中的选择输入选项中使用带引号的字符串？

1 个答案: