In f0nzie/petro.One: Statistics and Text Mining for Oil and Gas Papers from OnePetro Metadata

knitr::opts_chunk$set(echo = TRUE, 
                      comment = NA, 
                      error = TRUE, 
                      warning = FALSE, 
                      message = FALSE, 
                      fig.align = 'center')

Retrieve papers from OnePetro

well +production + production engineering + machine learning

library(petro.One)
library(dplyr)

# provide two different set of keywords to combine as vectors
major   <- c("reservoir", "reservoir engineering")
minor   <- c("machine-learning", "machine learning")


paper_results <- run_papers_search(major, minor, get_papers = TRUE, 
                                   verbose = FALSE, len_keywords = 4, 
                                   allow_duplicates = FALSE)

#  900, allow_duplicates = TRUE
# 2316, allow_duplicates = FALSE

(papers <- paper_results$papers)

what papers have machine learning in the title

papers %>%
    # machine learning OR machine-learning
    filter(grepl(pattern = "machine[-\\s]learning", 
                 x = book_title, ignore.case = TRUE, perl = TRUE))

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