functions/build_structure_for_list.R

In mfinst/TM-CoCit-Support-FM: What the package does (short line)

##
# Build Structure for list
##
# Builds a structure for a list of Corpus Objects
# The structure is based on the structKey given with the default being TF Matrix
##
# structKey = key of structure to be generated
# corpuslist = a List of VCorpus which generate from tm package: c(VCorpus1, ..., VCorpusN)
# @return = list of structure 
##
build_structure_for_list <- function(structKey = 'tf', corpusList = NULL, tokenizer) {
  # Prüfe ob die Corpus Liste vorhanden ist
  if (is.null(corpusList)) {
    print('corpus is NULL!')
    return(NULL)
  }
  
  structureCount = length(corpusList)
  result_structList = list() # Ergebnis Liste
  
  for (i in 1:structureCount) {
    
    # generiert die geforderte Struktur mit der matrix_gen Funktion
    struct = matrix_gen(corpus = corpusList[[i]], struct = structKey, dtmTokenizer = tokenizer)
    result_structList[[i]] = struct # fügt Struktur dem Ergebnis hinzu
    
    print(paste(i, ' struct calculated'))
  }
  return(result_structList)
}