R/citec_authors_df.R

In ahdvnd/citec: Scrapes Data from CitEc Citation Database

#' Returns a dataframe of authors' information for a given vector of author ids.
#' @param ids A vector of RePEc ids. RePEc id for
#' each author can be found here: https://ideas.repec.org/cgi-bin/shortid.cgi
#' @return A dataframe containing author's id, name, affiliation, number of papers, number of
#' citations, and years of being active.
#' @example citec_df(c("pal24", "pac16"))
#' @export citec_authors_df
#' @importFrom dplyr %>% bind_rows
#' @importFrom rvest html_nodes html_text
#' @importFrom xml2 read_html

citec_authors_df <- function(ids){
    tempurl <- paste("http://citec.repec.org/", ids, sep = "")
    htmldata <- lapply(tempurl, function(x) read_html(x))
    data <- data.frame(id = integer(1),
                       name = character(1),
                       activesince = numeric(1),
                       affiliation = character(1),
                       hindex = numeric(1),
                       i10index = numeric(1),
                       totalcitations = numeric(1),
                       narticles = numeric(1),
                       npapers = numeric(1),
                       nselfcite = numeric(1),
                       stringsAsFactors=FALSE)
    for (i in 1:length(ids)){
        data[i, "id"] <- ids[i]
        data[i, "name"] <- idname(htmldata[[i]])
        data[i, "activesince"] <- idactiveyr(htmldata[[i]])
        data[i, "affiliation"] <- idaffil(htmldata[[i]])
        t1 <- idhic(htmldata[[i]])
        data[i, "hindex"] <- t1[[1]]
        data[i, "i10index"] <- t1[[2]]
        data[i, "totalcitations"] <- t1[[3]]
        t2 <- idoutput(htmldata[[i]])
        data[i, "narticles"] <- t2[[1]]
        data[i, "npapers"] <- t2[[2]]
        data[i, "nselfcite"] <- idselfcite(htmldata[[i]])
        temp <- idotherpeople(htmldata[[i]])
        for (j in 1:30){
            ind <- paste('workswith', j, sep = '_')
            data[i, ind] <- temp[[1]][j]
        }
        for (j in 1:20){
            ind <- paste('citedby', j, sep = '_')
            data[i, ind] <- temp[[2]][j]
        }
        for (j in 1:20){
            ind <- paste('citesto', j, sep = '_')
            data[i, ind] <- temp[[3]][j]
        }
    }
    return(data)
}