闪亮的输入输出文本
Shiny Input Output Text
我的代码中有这个
server:
output$print_amount <- renderText({"1000"})
ui:
column(3, uiOutput("print_amount", label = "", value = 0))
有时我想用我的代码手动填充，有时我想用我的代码填充。但是这样做我不能，因为文本框被禁用
谢谢
我找到了答案：
服务器
updateNumericInput(session, "print_amount", value = 1000)
UI
column(3, numericInput("print_amount", label = "", value = 0)),
我的代码中有这个
server:
output$print_amount <- renderText({"1000"})
ui:
column(3, uiOutput("print_amount", label = "", value = 0))
有时我想用我的代码手动填充，有时我想用我的代码填充。但是这样做我不能，因为文本框被禁用
谢谢
我找到了答案：
服务器
updateNumericInput(session, "print_amount", value = 1000)
UI
column(3, numericInput("print_amount", label = "", value = 0)),