

library(tidyverse)
library(tidyxl)
library(unpivotr)

(my_data <- xlsx_cells("demo.xlsx"))

(beheaded <- my_data |> 
  filter(!is_blank) |> 
  select(row, col, data_type, numeric, character, date) |> 
  behead("up-left", header) |> 
  behead("up", header2))
  

b2 <- beheaded |> 
  select(-col) |> 
  unite(new_header, header, header2, na.rm = T)

b2 |> 
  spatter(new_header)
