闪亮的输入输出的文本

Question

我有这个在我的代码

server: 
output$print_amount <- renderText({"1000"}) 

ui: 
column(3, uiOutput("print_amount", label = "", value = 0)) 

有时IU想通过我的代码手动等次填写。但是，做这样我不能，因为文本框是禁用

感谢

Answer 1

我发现德回答：

服务器

updateNumericInput(session, "print_amount", value = 1000) 

UI

column(3, numericInput("print_amount", label = "", value = 0)),