| commit | 6b4b6f1ce5a0dceb7201251f153bcd093f395fc6 | [log] [tgz] |
|---|---|---|
| author | Tomasz Kalinowski <tkalinow@asu.edu> | Tue Sep 18 16:55:19 2018 -0400 |
| committer | GitHub <noreply@github.com> | Tue Sep 18 16:55:19 2018 -0400 |
| tree | 48b60d36ee5543c567cd2156c8273a60fdd09f1e | |
| parent | b548aace3bc341ca7084fc40b8b18eb4233129ae [diff] [blame] |
remove warning about partial match ```R partial match of 'length' to 'lengths' ```
diff --git a/R/collapse_rows.R b/R/collapse_rows.R index ee05cc8..86956aa 100644 --- a/R/collapse_rows.R +++ b/R/collapse_rows.R
@@ -109,7 +109,7 @@ mapping_matrix <- list() for (i in columns) { mapping_matrix[[paste0("x", i)]] <- unlist(lapply( - rle(kable_dt[, i])$length, column_block)) + rle(kable_dt[, i])$lengths, column_block)) } mapping_matrix <- data.frame(mapping_matrix) return(mapping_matrix)