| ... | ... |
@@ -89,7 +89,7 @@ |
| 89 | 89 |
|
| 90 | 90 |
# Construct ArrayGrid -------------------------------------------------- |
| 91 | 91 |
|
| 92 |
- sink_grid <- colGrid(x = sink, ncol = 1L) |
|
| 92 |
+ sink_grid <- colAutoGrid(x = sink, ncol = 1L) |
|
| 93 | 93 |
list_of_cols <- split(seq_along(group), group)[ugroup] |
| 94 | 94 |
|
| 95 | 95 |
# Compute colsum() ----------------------------------------------------- |
| ... | ... |
@@ -174,7 +174,7 @@ |
| 174 | 174 |
|
| 175 | 175 |
# Construct ArrayGrid -------------------------------------------------- |
| 176 | 176 |
|
| 177 |
- sink_grid <- rowGrid(x = sink, nrow = 1L) |
|
| 177 |
+ sink_grid <- rowAutoGrid(x = sink, nrow = 1L) |
|
| 178 | 178 |
list_of_rows <- split(seq_along(group), group)[as.character(ugroup)] |
| 179 | 179 |
|
| 180 | 180 |
# Compute colsum() ----------------------------------------------------- |
| ... | ... |
@@ -63,7 +63,7 @@ |
| 63 | 63 |
on.exit(close(sink)) |
| 64 | 64 |
|
| 65 | 65 |
# Set up ArrayGrid instance over columns of `sink`. |
| 66 |
- sink_grid <- colGrid(sink) |
|
| 66 |
+ sink_grid <- colAutoGrid(sink) |
|
| 67 | 67 |
|
| 68 | 68 |
# Loop over column grid of 'sink', identify samples required for that |
| 69 | 69 |
# block, bring that data into memory, pass down to .combineList_matrix(), |
