visible return in eval_forecasts

epiforecasts · Aug 24, 2021 · 4002705 · 4002705
1 parent 6d67f9d
commit 4002705
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 4 deletions.
diff --git a/R/eval_forecasts_binary.R b/R/eval_forecasts_binary.R
@@ -45,6 +45,8 @@ eval_forecasts_binary <- function(data,
                by = summarise_by]
 
   }
+
+  return(res[])
 }
 
 
diff --git a/R/eval_forecasts_continuous_integer.R b/R/eval_forecasts_continuous_integer.R
@@ -169,5 +169,5 @@ eval_forecasts_sample <- function(data,
                 pit_plots = pit_histograms)
   }
 
-  return(res)
+  return(res[])
 }
diff --git a/R/eval_forecasts_helper.R b/R/eval_forecasts_helper.R
@@ -20,7 +20,7 @@ add_quantiles <- function(dt, varnames, quantiles, by) {
                                                              na.rm = TRUE)),
        by = c(by)]
   }
-  return(dt)
+  return(dt[])
 }
 
 
@@ -41,5 +41,5 @@ add_sd <- function(dt, varnames, by) {
   for (varname in varnames) {
     dt[, paste0(varname, "_sd") := sd(get(varname), na.rm = TRUE), by = by]
   }
-  return(dt)
+  return(dt[])
 }
diff --git a/R/eval_forecasts_quantile.R b/R/eval_forecasts_quantile.R
@@ -194,5 +194,5 @@ eval_forecasts_quantile <- function(data,
     res[, c("quantile_coverage") := NULL]
   }
 
-  return(res)
+  return(res[])
 }
-Original file line number
+Diff line change
@@ Expand Up / @@ -45,6 +45,8 @@ eval_forecasts_binary <- function(data, @@
                    by = summarise_by]
       }
+      return(res[])
     }