WikiDataQuery.m

WikiDataQuery = Function[query,
   ImportString[
    URLRead[
     HTTPRequest[<|
       "Scheme" -> "https",
       "Domain" -> "query.wikidata.org",
       "Path" -> "bigdata/namespace/wdq/sparql",
       "Query" -> URLQueryEncode[<|"query" -> query|>]
       |>, <|
       "Headers" -> <|"Accept" -> "text/csv"|>
       |>],
     "Body"],
    "Dataset", HeaderLines -> 1]
   ];

(* eg 
recentcardinals = 
 WikiDataQuery[
  "SELECT ?link ?linkLabel ?ageAtDeath ?dateOfBirth ?dateOfDeath \
WHERE { 
    ?link wdt:P31 wd:Q5.
    ?link p:P39 _:b2.
    _:b2 ps:P39 wd:Q45722.
    OPTIONAL { ?link wdt:P569 ?dateOfBirth. }
    OPTIONAL { ?link wdt:P570 ?dateOfDeath. }
    BIND((YEAR(?dateOfDeath)) - (YEAR(?dateOfBirth)) AS ?ageAtDeath) \
.
    FILTER (?dateOfBirth >= \"1900-01-01T00:00:00Z\"^^xsd:dateTime) .
    SERVICE wikibase:label { bd:serviceParam wikibase:language \
\"en\". }
  }"]
*)