選擇輸入以填充文本框中的閃爍

Question

我的目標是將選擇輸入中的值填充到文本輸入。文本輸入應該能夠稍後由用戶修改。不幸的是，我的應用程序不起作用（選擇未填充），但沒有錯誤。

ui.R

library(shiny) 

shinyUI(fluidPage(

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

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

     ), 



     mainPanel(

     ) 
    ) 
)) 

server.R

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']) 
    }) 
    }) 
)