r - 如何在 renderTable 中以正确的小数位数显示数字？

Question

在我的 shiny 应用程序中，我有一个 renderTable 填充了整数和小数。我的目标是显示没有任何小数位的整数，即。 e. 1应显示为“1”，所有小数位的小数，i。 e. 1.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)

如您所见，我知道 renderTable 的 digits 参数，但我不知道如何在我的案例中使用它。

Answer 1

将输出包装在 as.character 中:

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