Question

在我的shiny应用中，我有一个renderTable，其中包含整数和十进制数字。我的目标是显示没有任何小数位的整数，i。即1应显示为＆＃34; 1＆＃34;，以及包含所有小数位的十进制数，i。即1.2345应显示为＆＃34; 1.2345＆＃34;。我应该提到数字源于用户输入。因此，我事先并不知道他们会有多少小数位。请参阅以下示例：

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)

正如您所看到的，我知道digits的{{1}}参数，但我不知道如何在我的情况下使用它。

Answer 1

将输出换行到as.character：

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

如何使用正确的小数位数在renderTable中显示数字？

1 个答案: