Testing bsselectR on RPubs

library(bsselectR)

quotes <- c("Look deep into nature, and then you will understand everything better.", 
            "A fool thinks himself to be wise, but a wise man knows himself to be a fool.", 
            "My mission in life is not merely to survive, but to thrive; and to do so with some passion, some compassion, some humor, and some style.")

quotes <- setNames(quotes, c("Einstein", "Shakespeare", "Angelou"))

bsselect(quotes, type = "text", height = 50)

Einstein Shakespeare Angelou

Look deep into nature, and then you will understand everything better.

views <- c("http://personal.tcu.edu/kylewalker/maps/dfw_election.html#13.04/32.7058/-97.3657", 
           "http://personal.tcu.edu/kylewalker/maps/dfw_election.html#13.39/32.7432/-96.8395", 
           "http://personal.tcu.edu/kylewalker/maps/dfw_election.html#12.49/33.2256/-97.1230")

names(views) <- c("TCU Area", "Oak Cliff", "Denton")

bsselect(views, type = "iframe")

TCU Area Oak Cliff Denton