Years with zero citations cause get_article_cite_history() to fail about scholar HOT 3 OPEN

get_article_cite_history <- function(id, article) {
{
    site <- getOption("scholar_site")
    id <- tidy_id(id)
    url_base <- paste0(site, "/citations?", "view_op=view_citation&hl=en&citation_for_view=")
    url_tail <- paste(id, article, sep = ":")
    url <- paste0(url_base, url_tail)
    res <- get_scholar_resp(url)
    if (is.null(res)) 
        return(NA)
    httr::stop_for_status(res, "get user id / article information")
    doc <- read_html(res)
    years <- doc %>% html_nodes(".gsc_oci_g_t") %>% html_text() %>% 
        as.numeric()
    vals <- doc %>% html_nodes(".gsc_oci_g_al") %>% html_text() %>% 
        as.numeric()
    df <- data.frame(year = years, cites = vals)
    if (nrow(df) > 0) {
        df <- merge(data.frame(year = min(years):max(years)), 
            df, all.x = TRUE)
        df[is.na(df)] <- 0
        df$pubid <- article
    }
    else {
        df$pubid <- vector(mode = mode(article))
    }
    return(df)
}

get_article_cite_history_2 <- function (id, article) {
    
    site <- getOption("scholar_site")
    id <- tidy_id(id)
    url_base <- paste0(site, "/citations?",
                       "view_op=view_citation&hl=en&citation_for_view=")
    url_tail <- paste(id, article, sep=":")
    url <- paste0(url_base, url_tail)
    
    res <- get_scholar_resp(url)
    httr::stop_for_status(res, "get user id / article information")
    doc <- rvest::read_html(res)
    
    ## Inspect the bar chart to retrieve the citation values and years
    years <- doc %>%
        rvest::html_nodes(".gsc_oci_g_a") %>% 
        rvest::html_attr('href') %>% 
        stringr::str_match("as_ylo=(\\d{4})&") %>% 
        "["(,2) %>% 
        as.numeric()
    vals <- doc %>%
        rvest::html_nodes(".gsc_oci_g_al") %>% 
        rvest::html_text() %>% 
        as.numeric()
    
    df <- data.frame(year = years, cites = vals)
    if(nrow(df)>0) {
        ## There may be undefined years in the sequence so fill in these gaps
        df <- merge(data.frame(year=min(years):max(years)),
                    df, all.x=TRUE)
        df[is.na(df)] <- 0
        df$pubid <- article
    } else {
        # complete the 0 row data.frame to be consistent with normal results
        df$pubid <- vector(mode = mode(article))
    }
    return(df)
}

> scholar::get_article_cite_history("eD9_J3wAAAAJ", "_FxGoFyzp5QC")
Error in data.frame(year = years, cites = vals) : 
  arguments imply differing number of rows: 6, 5
> get_article_cite_history_2("eD9_J3wAAAAJ", "_FxGoFyzp5QC")
  year cites        pubid
1 2016     3 _FxGoFyzp5QC
2 2017     1 _FxGoFyzp5QC
3 2018     0 _FxGoFyzp5QC
4 2019     1 _FxGoFyzp5QC
5 2020     1 _FxGoFyzp5QC
6 2021     5 _FxGoFyzp5QC

get_article_cite_history("QtuhiVMAAAAJ", "IjCSPb-OGe4C")

Error in data.frame(year = years, cites = vals) : 
  arguments imply differing number of rows: 16, 15