闪亮的输入输出文本

Question

我的代码中有这个

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

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

有时IU希望通过我的代码手动填写其他时间。但这样做我不能，因为文本框被禁用

由于

Answer 1

我找到了答案：

SERVER

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

UI

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