# NOT RUN {
# List five diseases
query <- 'SELECT ?itemLabel WHERE {
?item wdt:P31 wd:Q12136. #instance of disease
SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en". }
}
LIMIT 5'
wiki_query(query)
# }
Run the code above in your browser using DataLab