Как обновить блестящее поле TextInput?

Question

Я пытаюсь обновить виджет resultIn textInput следующим образом, но он всегда вспыхивает, когда я кодирую функцию updateTextInput в server ().Кто-нибудь может рассказать мне об этом?Я спешу на работу.

#Define
ui = fluidPage(
  #--------------
  tabPanel("tab2",
           div(style="display: inline-block;vertical-align:middle; width: 130px;",
               textInput("result1","result1","0")),
           div(style="display: inline-block;vertical-align:moddle; width: 10px;",
               p("")),
           div(style="display: inline-block;vertical-align:moddle; width: 30px;",
               h4(p("="))),
           div(style="display: inline-block;vertical-align:middle; width: 100px;",
               textInput("var1","length","var1")),#length
           div(style="display: inline-block;vertical-align:moddle; width: 10px;",
               p("")),
           div(style="display: inline-block;vertical-align:moddle; width: 20px;",
               h4(p("/"))),
           div(style="display: inline-block;vertical-align:middle; width: 150px;",
               textInput("var2","c_sec","var2")),
           div(style="display: inline-block;vertical-align:moddle; width: 10px;",
               p("")),
           div(style="display: inline-block;vertical-align:moddle; width: 20px;",
               h4(p("x"))),
           div(style="display: inline-block;vertical-align:middle; width: 100px;",
               selectInput("selc1","resis",choices = list("copper" = 0.0174, "Alum" = 0.0282)))#電阻率
           ),
  #-------------
  tabPanel("tab9",
           div(style="display: inline-block;vertical-align:middle; width: 130px;",
           actionButton("btn2", "calculate")
           )
  )
  #--

)
#--Define server here----------------------------------
server = function(input, output) {
     observe({
       x = (input$var1/input$var2)*as.numeric(input$selc1)
       updateTextInput("result1",value = paste(x))
     })

}
shinyApp(ui, server)