riss_sum.R

library(readxl)
library(dplyr)
library(tidyr)
library(stringr)

tem <- read_excel("myCabinetExcelData (2).xls", col_names = F)
tem %>% 
  distinct(...1) %>% 
  pull(...1) -> col_order
  
tem %>% 
  mutate(
    title = str_detect(...1, "제목"),
    arti_id = cumsum(title)
  ) %>%
  rename(
    key = ...1,
    value = ...2
  ) %>%
  select(
    arti_id, key, value
  ) %>%
  group_by(arti_id, key) %>% 
  mutate(dup = row_number()) %>% 
  ungroup() %>% 
  mutate(arti_id = str_c(arti_id,"-",dup)) %>% 
  select(-dup) %>% 
  spread(key, value) %>% 
  select(
    c(arti_id, col_order)
  )