R/get_part_meronyms.R

In gandalfnicolas/SADCAT: Dictionary creation with stereotype content dictionaries

#' @title Wordnet part meronyms retriever
#'
#' @description Gets part meronyms for a term's synset
#' @param synsets synsets to obtain part meronyms for
#' @param Syns Return the synsets? Defaults to TRUE. If FALSE, returns the various words that make up the synsets.
#' @return part meronyms of the words
#' @export get_part_meronyms


get_part_meronyms = function(synsets, Syns=T){
  tryCatch({
    if(length(synsets)==1){
      result = wordnet::getRelatedSynsets(synsets, pointerSymbol = "#p")}
    else{
      result = sapply(synsets,getRelatedSynsets, pointerSymbol = "#p")}
    if(Syns == F){
      return(sapply(unlist(result),getWord))}
    else{
      return(unlist(result))}},
    error = function(s){
      message(paste0("ERROR in get_part_meronyms"))
      return(NA)})
}