source('./R/url.R')
source('./R/summary.R')

my_url <- make_search_url(query = "neural network", 
                          how = "all")

result <- read_html(my_url)
raw_right <- publication_result_right(result)
raw_left <- publication_result_left(result)

summary_by_doctype(raw_right)
summary_by_publisher(raw_right)

summary_by_dates(raw_left)
summary_by_publications(raw_left)
source('./R/url.R')
source('./R/summary.R')

my_url <- make_search_url(query = "shale oil", 
                          how = "all")

result <- read_html(my_url)
pubs_raw <- publication_result_right(result)

summary_by_doctype(pubs_raw)
summary_by_publisher(pubs_raw)
raw_left <- publication_result_left(result)
summary_by_dates(raw_left)
summary_by_publications(raw_left)
source('./R/url.R')
source('./R/summary.R')

my_url <- make_search_url(query = "shale gas", 
                          how = "all")

result <- send_url(my_url)

pubs_raw <- publication_result(result)

summary_by_doctype(pubs_raw)
source('./R/url.R')
source('./R/summary.R')

my_url <- make_search_url(query = "shale gas", 
                          how = "all")

result <- send_url(my_url)

pubs_raw <- publication_result(result)

summary_by_publisher(pubs_raw)


f0nzie/petro.One documentation built on May 29, 2019, 12:05 a.m.