Add view_output()

Function to view the output table with rounded numbers

Author: ma-z-am

NAMESPACE

@@ -30,6 +30,7 @@ export(saveActiveDevice)
 export(site_info_from_qsimID)
 export(stats)
 export(value_to_classes)
+export(view_output)
 import(ggmap)
 importFrom(data.table,fread)
 importFrom(geosphere,distHaversine)
@@ -55,6 +56,7 @@ importFrom(methods,is)
 importFrom(png,readPNG)
 importFrom(stats,quantile)
 importFrom(stats,sd)
+importFrom(utils,View)
 importFrom(utils,data)
 importFrom(utils,read.table)
 importFrom(utils,unstack)

R/utils.R

@@ -278,3 +278,18 @@ classes_to_color <- function(class_levels, colorVector = NULL){
   factor(colorVector, levels = colorVector)
 }
 
+
+#' View the output table with rounded results
+#'
+#' @param ot The output table created with one of the aggregating functions
+#' @param digits The number of digits
+#'
+#' @importFrom utils View
+#' @export
+#'
+view_output <- function(ot, digits){
+  output_region <-
+    !(colnames(ot) %in% c("river_name", "section_id", "section_name", "km"))
+  ot[,output_region] <- round(ot[,output_region], digits = 3)
+  View(ot)
+}