R 如何以正确的小数位数显示可渲染的数字？

在我的

shinny

应用程序中，我有一个

renderable

，里面有整数和小数。我的目标是显示不带任何小数点的整数。E1应显示为“1”，所有小数位的小数位，即。E1.2345应显示为“1.2345”。我应该提到，这些数字来自用户输入。因此，我不知道他们会有多少个小数位。请参见以下示例：

library(shiny)

ui <- fluidPage(
  numericInput("number", "enter a number", value = 1.2345),
  tableOutput("table"))

server <- function(input, output, session) {
  output$table <- renderTable({data.frame(c(1, input$number))}, digits = 0)}

shinyApp(ui, server)

库（闪亮）
ui将输出包装为.character

：

server <- function(input, output, session) {
  output$table <- renderTable({
    data.frame(as.character(c(1, input$number)))
  }, rownames = T)
}

服务器