在我的 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
参数,但我不知道如何在我的案例中使用它。
最佳答案
将输出包装在 as.character
中:
server <- function(input, output, session) {
output$table <- renderTable({
data.frame(as.character(c(1, input$number)))
}, rownames = T)
}
关于r - 如何在 renderTable 中以正确的小数位数显示数字?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47034822/