R/get_WD_item_properties.R

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

get_WD_item_properties <-function(item,language="en",limit=50){
  spec=str_c(item, " ?property ?object")
   tib <- rselect("property","object","objectLabel") %>% 
    rspecify(spec) %>% 
    rlabel(language) %>%
    rlimit(limit) %>% 
    query_wikidata() %>%
    rprefix() %>% 
    left_join(get_all_WD_properties(language), by="property")
  return(tib)
}