正しい数の小数点以下の桁数を使ってレンダリングテーブルに数値を表示するにはどうすればよいですか？

Question

私のshinyアプリでは、私はrenderTableに10進数と同様に完全な数字が入っています。私の目標は小数点なしで整数を表示することです。 e。 1は「1」と表示され、小数点はすべて小数点以下で表示されます。 e。 1.2345は「1.2345」と表示されます。私は数字がユーザーの入力に由来することに言及する必要があります。したがって、私は小数点以下の桁数を事前に知っていません。あなたは私がrenderTableのdigits引数の承知していますが、私は私の場合には、それを利用するためにどのように表示されていない見ることができるように

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) 

：次の例を参照してください。

Answer 1

ラップas.characterでの出力：

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