在我的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
参数,但我不知道如何在我的例子中使用它。
发布于 2017-10-31 04:02:43
将输出包装在as.character
中:
server <- function(input, output, session) {
output$table <- renderTable({
data.frame(as.character(c(1, input$number)))
}, rownames = T)
}
https://stackoverflow.com/questions/47034822
复制相似问题