r - 选择输入以填充 Shiny 中的文本框

Question

我的目标是将一个值从选择输入填充到文本输入。用户稍后应该能够修改文本输入。不幸的是，我的应用程序不起作用(未填充选择)但没有错误。

用户界面

library(shiny)

shinyUI(fluidPage(

    sidebarLayout(
        sidebarPanel(
            selectInput("id", 
                        label = "Choose a number",
                        choices = list()
            ),

            textInput("txt1", "number", 0)

        ),



        mainPanel(

        )
    )
))

服务器

df <- data.frame(a=c(1,2),b=c(3,4))

shinyServer(function(input, output, session) {
    # fill the select input
    updateSelectInput(session, "id", choices = df$a)

    observe({
        # When I comment this line, the select is correctly filled
        updateTextInput(session, "txt1", value = df[df$a==input$id,'a'])
    })

})

任何可能出问题的想法？

Answer 1

您的代码不适用于您的示例数据集，但适用于:

df <- data.frame(a=c("a","b"),b=c(3,4))

我的猜测是 updateSelectInput() 需要一个字符。但是，这不起作用:

updateSelectInput(session, "id", choices = as.character(df$a))

但是如果你将 df 定义为:

df <- data.frame(a=c("1","2"),b=c(3,4))

这有效。示例的完整代码:

library(shiny)

df <- data.frame(a=c("1","2"),b=c(3,4))

shinyApp(
  ui = shinyUI(fluidPage(
    sidebarLayout(
      sidebarPanel(
        selectInput("id", 
          label = "Choose a number",
          choices = list()
        ),
        textInput("txt1", "number", 0)
      ),
      mainPanel()
    )
  )),
  server = shinyServer(function(input, output, session) {
    updateSelectInput(session, "id", choices = df$a)

    observe({
      updateTextInput(session, "txt1", value = df[df$a==input$id,'a'])
    })
  })
)