R/log_test_fails_summary.R

In neugelb/neugelbtools: Various small Neugelb tools

#' log_test_fails_summary
#'
#' Get a summary of the failed tests in the mobile logs
#' @param df The test dataframe
#' @export

log_test_fails_summary <- function(df) {

  require(lubridate)
  require(tidyverse)

  os_name <- ifelse('device_model' %in% names(df),'iOS','Android')

  df2 <- df %>%
    filter(test_perfect == FALSE) %>%
    select(event_name:test_schema_fails,date) %>%
    distinct() %>%
    arrange(event_name) %>%
    mutate(os = os_name,
           date = ymd(date))

  return(df2)

}