R/rlabel.R

In lvaudor/wikiquery: A Package that Helps to Explore and Query Wikidata

rlabel=function(query,language){
  query <- str_c(str_replace(query,"\\}#endOfWhere",""),
                 "\nSERVICE wikibase:label {bd:serviceParam wikibase:language \"",language,"\".}",
                 "}#endOfWhere")
  return(query)
}