R 阻止表格添加小数点

我试图使用Shiny in R显示频率表，但出于某种原因，它坚持将频率显示到小数点后两位。我尝试过使用round（），但没有任何效果。我猜这可能与合并有关，因为当我备份并仅显示频率表时，显示的频率没有不必要的小数位…但我不确定是哪个部分导致了问题，这就是为什么我在本例中包含了对代码所做的几乎所有争拗元素。你需要搜索其中一种水果（例如苹果）才能让桌子显示出来，并明白我的意思

谢谢你的帮助

现在的样子：

库（“闪亮”）
图书馆（“shinydashboard”）
水果你就快到了，只需更换：

searched_fruit$freq <- round(searched_fruit$freq)

在闪亮的应用程序中，您可以使用
DT:：renderDataTable
而不是
renderTable
，并使用函数
formatRound
。不知道它在仪表板上是否也能工作。谢谢！您知道为什么as.integer（）可以工作，而round（）不能工作吗？使用
round（）
您的列仍然是数字列，因此使用了数字列的默认格式选项，而
as.integer（）的情况则不同。如果要显示特定数量的数字，另一个选项是使用as.character（round（myColumn，digits=x））。
searched_fruit$freq <- round(searched_fruit$freq)

searched_fruit$freq <- as.integer(searched_fruit$freq)

server <- function(input, output) {
  output$table <- renderTable({
    fruit_query <- input$search
    fruit_count <- plyr::count(fruit)
    colnames(fruit_count)[1] <- "fruit_type"
    fruit_count$fruit_type <- as.character(fruit_count$fruit_type)
    fruit_count <- merge(fruit_count, fruit_info, 
                         by = "fruit_type", all = T)
    fruit_count$freq <- ifelse(is.na(fruit_count$freq),
                               0, fruit_count$freq)
    searched_fruit <- fruit_count[fruit_count$fruit_type == fruit_query,]
  }, digits = 0)
}