demo_data <-
structure(list(first_name = c("Nick", "Frank", "Adam", "David", 
"Jana", "Megan", "Thiago", "Karen"), last_name = c("Paterno", 
"Marfai", "Gilbert", "Diez", "Archibald", "Mocko", "Scarelli", 
"Higgins")), row.names = c(NA, -8L), spec = structure(list(cols = list(
    `First Name` = structure(list(), class = c("collector_character", 
    "collector")), `Last Name` = structure(list(), class = c("collector_character", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), delim = ","), class = "col_spec"), problems = <pointer: 0x0>, class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))