Skip to content

Commit

Permalink
avoid warning in distinct() for character variable
Browse files Browse the repository at this point in the history
  • Loading branch information
earowang committed Aug 27, 2018
1 parent 5dd1099 commit 9dabeab
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/dplyr-verbs.R
Original file line number Diff line number Diff line change
Expand Up @@ -208,8 +208,8 @@ summarise.tbl_ts <- function(.data, ..., .drop = FALSE) {
key_less <- key(key_remove(.data, grps, validate = FALSE))
flat_key <- key_flatten(key_less)
# currently no way to set up nesting in `group_by()`
add_key <- setdiff(grps, c(flat_key, idx2_chr))
new_key <- c(key_less, add_key)
add_key <- syms(setdiff(grps, c(flat_key, idx2_chr)))
new_key <- c(key_less, add_key)

build_tsibble_meta(
sum_data, key = new_key, index = !! idx2, groups = grp_drop(grps, idx2_chr),
Expand Down

0 comments on commit 9dabeab

Please sign in to comment.