# NOT RUN {
#Get a component
example_url <- "http://en.wikipedia.org/wiki/Aaron_Halfaker?debug=true#test"
fragment(example_url)
#Set a component
fragment(example_url) <- "production"
#Remove a component
fragment(example_url) <- NULL
# }
Run the code above in your browser using DataLab