閃亮的輸入輸出的文本

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)),