R/firebase_schema_readr.R

In neugelb/neugelbtools: Various small Neugelb tools

#' firebase_schema_readr
#'
#' Read in the Firebase event schema and check if there are any event names that are too long
#' @param file The Firebase Excel export from Office 365
#' @export

firebase_schema_readr <- function(file) {

require(readxl)
require(tidyverse)

x <- read_excel(file,sheet=1) %>%
 mutate(too_long = ifelse(nchar(firebase_event_name) > 39,TRUE,FALSE))

return(x)

}