# \donttest{
if (curl::has_internet()) {
# Get info for multiple parties
urls <- c(
"https://en.wikipedia.org/wiki/Democratic_Party_(United_States)",
"https://en.wikipedia.org/wiki/Republican_Party_(United_States)",
"https://en.wikipedia.org/wiki/Social_Democratic_Party_of_Germany"
)
get_party_info(urls)
# Include all colors
get_party_info(urls, all_colors = TRUE)
}
# }
Run the code above in your browser using DataLab