R/wiki_node_ckr.R

#' A function to the wikipedia node
#' @include node_ckr.R
#' @import rvest
#' @export
wiki_node_ckr <- function(wikihtml, path){
        if(node_ckr(wikihtml, path)=="try-error"){
                try(stop(simpleError("wrong table number")))
        } else {
                for_table <- html_nodes(wikihtml, css = path)
                return(for_table)
        }
}
DataUrbanEconGeek/wikipop documentation built on May 20, 2019, 9:58 a.m.