library(tidyverse) 
library(wbstats)
# search for a dataset of interest
#df1_bond<-wb_search(pattern ="bond") %>% head
df1_bond<-wb_search(pattern ="bond")
df1_ed<-wb_search(pattern = "education")
df1_bond %>% head