Nothing
#' @title Mutate event log
#' @name mutate
#' @importFrom dplyr mutate
#' @export
dplyr::mutate
#' @export
mutate.eventlog <- function(.data, ...) {
mapping <- mapping(.data)
x <- NextMethod(.data, ...)
x %>%
re_map(mapping) -> x
return(x)
}
#' @export
mutate.grouped_eventlog <- function(.data, ...) {
mapping <- mapping(.data)
groups <- groups(.data)
x <- NextMethod(.data, ...)
x <- re_map(x, mapping)
x <- group_by_at(x, vars(one_of(paste(groups))))
return(x)
}
#' @export
mutate.activitylog <- function(.data, ...) {
mapping <- mapping(.data)
x <- NextMethod(.data, ...)
x %>%
re_map(mapping) -> x
return(x)
}
#' @export
mutate.grouped_activitylog <- function(.data, ...) {
mapping <- mapping(.data)
groups <- groups(.data)
x <- NextMethod(.data, ...)
x <- re_map(x, mapping)
x <- group_by_at(x, vars(one_of(paste(groups))))
return(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.