if (require(magrittr)) {
# With pipes
my_url <- soql() %>%
soql_add_endpoint("https://fake.soda.api/resource.json") %>%
as.character()
} else {
# Without pipes
soql_chain <- soql()
soql_chain <- soql_add_endpoint(soql_chain, "https://fake.soda.api/resource.json")
my_url <- as.character(soql_chain)
}
Run the code above in your browser using DataLab