R/schema_check.R

In neugelb/neugelbtools: Various small Neugelb tools

#' schema_check
#'
#' Read the Mobile Events schema and check if any of the names are too long to be sent via Firebase

#' @export

schema_check <- function() {

  schema <- gs_quickread('Commerzbank New Mobile App Events Tracking Schema') %>%
    mutate(too_long = nchar(firebase_event_name) > 40)

  too_long <- schema %>%
    filter(too_long == TRUE)

return(too_long)
}