search

ropensci / jstor

Import journal data from DfR (JSTOR)
https://docs.ropensci.org/jstor
47 stars 9 forks source link

use bind_cols for different depths #27

Closed tklebel closed 6 years ago

tklebel commented 6 years ago

Instead of

  out <- list(
    book_id = extract_child(xml_file, ".//book-id"),
    basename_id = extract_basename(file_path, "xml"),
    list(purrr::map_df(parts, find_part, authors))
  )

  out %>% 
    data.frame(stringsAsFactors = FALSE) %>% 
    tibble::new_tibble()

do

  base <- list(
    book_id = extract_child(xml_file, ".//book-id"),
    basename_id = extract_basename(file_path, "xml")
  )

  parts <- purrr::map(parts, find_part, authors)

  dplyr::bind_cols(base, parts)