analyses: ignored_patches: improve fill_missing_weeks util

Signed-off-by: Ralf Ramsauer <[email protected]>
lfd · Jun 9, 2021 · eba830f · eba830f
1 parent 9bff1c9
commit eba830f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/analyses/ignored_patches.R b/analyses/ignored_patches.R
@@ -71,7 +71,10 @@ fillup_missing_weeks <- function(data, key) {
 
   missing.weeks <- !(all.weeks %in% data$week)
   if (any(missing.weeks)) {
-    return(rbind(data, data.frame(week=all.weeks[missing.weeks], total=0)))
+    frame <- data.frame(week = all.weeks[missing.weeks], col = 0)
+    colnames(frame) <- colnames(data)
+
+    return(rbind(data, frame))
   }
   return (data)
 }