... | ... |
@@ -185,13 +185,13 @@ |
185 | 185 |
ans_d <- c(ans_d, bubble_d) |
186 | 186 |
## Format the bubble partitions. |
187 | 187 |
bubble_partitions <- bubble_variants[ , "partition"] |
188 |
- bubble_partitions <- sapply(bubble_partitions, paste, collapse=",") |
|
188 |
+ bubble_partitions <- sapply(bubble_partitions, base::paste, collapse=",") |
|
189 | 189 |
bubble_partitions <- paste0("{", bubble_partitions, "}") |
190 | 190 |
ans_partitions <- c(ans_partitions, |
191 | 191 |
CharacterList(bubble_partitions)) |
192 | 192 |
## Format the bubble paths. |
193 | 193 |
bubble_paths <- bubble_variants[ , "path"] |
194 |
- bubble_paths <- sapply(bubble_paths, paste, collapse=",") |
|
194 |
+ bubble_paths <- sapply(bubble_paths, base::paste, collapse=",") |
|
195 | 195 |
bubble_paths <- paste0("{", bubble_paths, "}") |
196 | 196 |
ans_paths <- c(ans_paths, CharacterList(bubble_paths)) |
197 | 197 |
## Format the bubble AScode. |
... | ... |
@@ -106,7 +106,7 @@ setOldClass("igraph") |
106 | 106 |
stop("'tx_id.as.edge.label' must be TRUE or FALSE") |
107 | 107 |
d <- .precook_igraph_edges_from_sgedges(sgedges) |
108 | 108 |
if (tx_id.as.edge.label) |
109 |
- d$label <- sapply(d$tx_id, paste, collapse=",") |
|
109 |
+ d$label <- sapply(d$tx_id, base::paste, collapse=",") |
|
110 | 110 |
d$tx_id <- NULL |
111 | 111 |
## Turning 'd' into an ordinary data.frame. (Looks like 'as.data.frame()' |
112 | 112 |
## on a DataFrame ignores the 'stringsAsFactors' arg so we use |