library(urltools) #Get a component example_url <- "http://en.wikipedia.org/wiki/Aaron_Halfaker?debug=true" parameters(example_url) #[1] "debug=true" #Set a component parameters(example_url) <- "debug=false"
library(urltools) url <- "https://www.onepetro.org/search?q=\"heat+transfer\"&peer_reviewed=&published_between=&from_year=&to_year=&dc_type=" parameters(url)
parsed_address <- url_parse(url) str(parsed_address)
# show only the parameter (url_parse(url)$parameter)
# decompose/parse the parameter variable param_get(url, c("q")) param_get(url, c("dc_type"))
param_get(url, c("q", "dc_type", "to_year", "rows", "start"))
param_set(url, "rows", 100)
fragment(url)
parsed_address <- url_parse("https://en.wikipedia.org/wiki/Article") str(parsed_address)
url_compose(parsed_address)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.