fixes #66

Author: philchalmers

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: SimDesign
 Title: Structure for Organizing Monte Carlo Simulation Designs
-Version: 2.19.1
+Version: 2.19.2
 Authors@R: c(person("Phil", "Chalmers", email = "rphilip.chalmers@gmail.com", role = c("aut", "cre"),
                     comment = c(ORCID="0000-0001-5332-2810")),
              person("Matthew", "Sigal", role = c("ctb")),

R/Design.R

@@ -203,7 +203,7 @@ expandDesign <- function(Design, repeat_conditions){
                   length(repeat_conditions) == nrow(Design))
     rep_vec <- rep(1L:nrow(Design), times=repeat_conditions)
     ret <- Design[sort(rep_vec), ]
-    attr(ret, 'Design.ID') <- rep_vec
+    attr(ret, 'Design.ID') <- attr(Design, 'Design.ID')[rep_vec]
     rownames(ret) <- NULL
     ret
 }