(v1.7.1.9014) rep() for S3 classes

2025-07-09 06:51:48 +02:00 · 2021-07-06 16:35:14 +02:00
parent 16b4c74d44
commit ad10693a1a
38 changed files with 383 additions and 320 deletions
--- a/R/bug_drug_combinations.R
+++ b/R/bug_drug_combinations.R
@ -113,7 +113,7 @@ bug_drug_combinations <- function(x,
        data.frame(S = m["S", ], I = m["I", ], R = m["R", ], stringsAsFactors = FALSE)
      })
      merged <- do.call(rbind, pivot)
-      out_group <- data.frame(mo = unique_mo[i],
+      out_group <- data.frame(mo = rep(unique_mo[i], NROW(merged)),
                              ab = rownames(merged),
                              S = merged$S,
                              I = merged$I,