data-raw/parse.meta.details.R

In 9thcirclegames/bgg-analysis: What makes a game a good game?

parse.meta.details <- function(xml){

  collection <- read_xml(xml)

  header <- do.call(rbind.fill, list(lapply(xml_find_all(collection, "//items/item"), function(item){

    meta <- as.data.frame(t(xml_attrs(item)), stringsAsFactors=FALSE)
    meta$type <- as.factor(meta$type)

    return(meta)

  }))
  )

  return(header[, rev(names(header))])

}