R/idactiveyr.R

In ahdvnd/citec: Scrapes Data from CitEc Citation Database

idactiveyr <- function(x){
    d <- x %>%
        html_nodes("td div") %>%
        html_text()
    if (identical(d, character(0))) {
        tls <- NA
    } else {
    r1 <- grep("RESEARCH ACTIVITY", d)
    tls <- d %>%
        .[r1+1] %>%
        strsplit("[(]") %>%
        unlist() %>%
        .[2] %>%
        substr(1,4) %>%
        as.numeric()
    }
    return(tls)
}