如何将我的数字四舍五入到一个可置信的数据框中发光？

问题描述

我有一个包含两列的数据框，其中一列具有我要用户修改的值，第二列是根据第一列的值计算得出的。问题是，当用户修改一个值时，该值会自动舍入为只有4位小数的数字。例如，如果我输入0.007543321343，则表格将仅显示0.0075并将此最后一个值用于第二列的值的计算。

是否有一种方法可以保留输入的所有小数位数，而不仅仅是前四个？我尝试使用format = "0.000000000000000"，但随后显示零而不是缺少的小数点（在上面的示例中显示为0.007500000000000）

您将在下面找到我的代码：


library(shiny)
library(shinydashboard)
library(rhandsontable)
library(dplyr)


DF<-data.frame(numbers=rnorm(10))
DF<-mutate(cum_prod=cumprod(numbers))


ui<-shinyUI(fluidPage(
  rHandsontableOutput("hot")
))

server <- shinyServer(function(input,output,session) {
  
  prevIoUs<-reactive({DF})
  
  
  changes <-reactive({
    if(is.null(input$hot)){return(prevIoUs())}
    else if(!identical(prevIoUs(),input$hot)){
      table <- as.data.frame(hot_to_r(input$hot))

      
      table[,"cum_prod"]<- cumprod(table[,"numbers"])
      return(table)
    }
  })
  
  output$hot<- renderRHandsontable({rhandsontable(changes())})
 
  
})
  
shinyApp(ui,server)

非常感谢您的帮助！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r rhandsontable shiny