如何用正确的小数位数在renderTable中显示数字？
如何用正确的小数位数在renderTable中显示数字？
提问于 2017-10-31 11:56:32
在我的shiny应用程序中，我有一个包含整数和十进制数字的renderTable。我的目标是在没有小数位的情况下显示整数，即1应该显示为"1"，而所有小数位的小数数，即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)正如您所看到的，我知道digits的renderTable参数，但我不知道如何在我的例子中使用它。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-10-31 12:02:43
将输出包装在as.character中：
server <- function(input, output, session) {
output$table <- renderTable({
data.frame(as.character(c(1, input$number)))
}, rownames = T)
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/47034822
复制相关文章
相似问题
腾讯云开发者
