R/get.book.info.R

In qxde01/Rdouban: Provide an interface to the douban comment data

##'@douban api of book information
##'@bookid
##'@version
get.book.info <- function(bookid) {
  u = paste0("https://api.douban.com/v2/book/", bookid)
  # p=getURL(u,ssl.verifypeer = FALSE)
  p <- .refreshURL(u, ssl.verifypeer = FALSE)
  reslist <- fromJSON(p)
  title <- reslist[["title"]]
  author <- reslist[["author"]]
  rating <- unlist(reslist[["rating"]])
  tags <- reslist[["tags"]]
  summary <- reslist[["summary"]]
  tags <- data.frame(tag_label = sapply(tags, function(x) x[["name"]]), 
                     tag_freq = sapply(tags,  function(x) x[["count"]]),
                     stringsAsFactors = F)
  image <- reslist[["images"]]
  href <- reslist[["alt"]]
  reslist$title <- NULL
  reslist$author <- NULL
  reslist$rating <- NULL
  reslist$tags <- NULL
  reslist$summary <- NULL
  reslist$alt <- NULL
  reslist$images <- NULL
  attribute = reslist
  
  list(title = title, author = author, rating = as.double(rating), summary = summary, 
       tags = tags, href = href, image = image, attribute = attribute)
}