Update plot_pattern.R

Re implementing my bug fix that was in commit a985ce0 but overwritten in commit 985d336
jwallib · Jul 14, 2023 · c5f34db · c5f34db
1 parent 85312c3
commit c5f34db
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/plot_pattern.R b/R/plot_pattern.R
@@ -107,7 +107,8 @@ plot_pattern <-
 
     # tidy the pattern
     long <-
-      data.frame(.y = 1:(rws - 1), pat_clean, row.names = NULL) %>%
+      cbind(.y = 1:(rws - 1), pat_clean) %>%
+      as.data.frame(.) %>%
       tidyr::pivot_longer(
         cols = tidyselect::all_of(vrb),
         names_to = "x",