Merge pull request #87 from adam-m-mcelhinney/master

Updated get_summary_view() to round all doubles to 3 decimal places.
uptake · Apr 18, 2018 · cda748a · cda748a
2 parents a271ef8 + ec7065f
commit cda748a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/R/PackageDependencyReporter.R b/R/PackageDependencyReporter.R
@@ -53,6 +53,10 @@ DependencyReporter <- R6::R6Class(
               , lengthChange = FALSE
             )
           )
+          # Round the double columns to three digits for formatting reasons
+          numCols <- names(which(unlist(lapply(tableObj$x$data, is.double))))
+          tableObj <- DT::formatRound(columns = numCols, table = tableObj
+                                      , digits=3)
           return(tableObj)
         }
 

diff --git a/R/PackageFunctionReporter.R b/R/PackageFunctionReporter.R
@@ -42,6 +42,10 @@ FunctionReporter <- R6::R6Class(
               , lengthChange = FALSE
             )
           )
+          # Round the double columns to three digits for formatting reasons
+          numCols <- names(which(unlist(lapply(tableObj$x$data, is.double))))
+          tableObj <- DT::formatRound(columns = numCols, table = tableObj
+                                      , digits=3)
           return(tableObj)
         }
     ),