update monthly moving averages to return dataframe

Paul-Carvalho · Paul-Carvalho · commit 7facc4c8e375 · 2026-02-25T09:59:53.000-08:00
diff --git a/R/calc_monthly_moving_avg.R b/R/calc_monthly_moving_avg.R
@@ -95,5 +95,5 @@ calc_monthly_moving_avg <- function(df,
   # Cleanup
   dt[, (temp_id_col) := NULL]
   
-  return(dt)
+  return(as.data.frame(dt))
 }

Original file line number	Diff line number	Diff line change
`@@ -95,5 +95,5 @@ calc_monthly_moving_avg <- function(df,`
`95`	`95`	`# Cleanup`
`96`	`96`	`dt[, (temp_id_col) := NULL]`
`97`	`97`
`98`		`- return(dt)`
	`98`	`+ return(as.data.frame(dt))`
`99`	`99`	`}`