Transform lexicon from long format to wide format

transform.R

library(readr)
library(dplyr)
library(tidyr)
library(zoo)

dict <- read_csv("~/sandboxes/long2wide-dict/test.csv")

dict %>%
  filter(!is.na(code)) %>% 
  mutate(lx_start = ifelse(code == "lx", 1:n(), NA) %>% na.locf()) %>%
  arrange(lx_start, code) %>% 
  group_by(lx_start, code) %>% 
  mutate(code_start = 1:n()) %>%
  unite(code, code, code_start, sep = ".") %>%
  spread(code, content) %>%
  select(lx_start, lx.1, everything())