In f0nzie/petroleum.ml: Machine Learning Applications in Machine Learning

library(petro.One)

major <- c("artificial intelligence")
minor <- c("reservoir", "production")
           # , "logging", "completion", "intervention",
           # "drilling", "geology", "seismic", "petrophysics", "geophysics", 
           # "economics", "metering", "pvt", "offshore")

# the returning data structure is a a list
# the list contains two dataframes: one for the keywords and a second for the papers
prod.li <- join_keywords(major, minor, get_papers = TRUE, sleep = 3)
prod.li

# write dataframes to csv
# write.csv(prod.li$keywords, file = "data/ai-keywords.csv")
# write.csv(prod.li$papers,   file = "data/ai-papers.csv")

write.csv(prod.li$keywords, file.path(rprojroot::find_rstudio_root_file(), "data", "ai-keywords.csv"), row.names = FALSE)
write.csv(prod.li$keywords, file.path(rprojroot::find_rstudio_root_file(), "data", "ai-papers.csv"), row.names = FALSE)