collapse_comments("Saw fish", character(0), "Nice. .", NA_character_)
data <- data.frame(
visit = c(1, 1, 2, 2),
fish = 1:4,
comment = c("Sunny day. ", "Skinny fish", "Lost boot", NA)
)
if (FALSE) {
data |>
dplyr::group_by(visit) |>
dplyr::summarise(comment = collapse_comments(comment)) |>
dplyr::ungroup()
}
Run the code above in your browser using DataLab