library(petroOne) library(xml2) library(rvest) query <- "neural network" session <- html_session("https://www.onepetro.org/") session form <- html_form(session)[[3]] form
form <- set_values(form, q = query)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.