calc_composite_attributes.R

library(magrittr)

args = commandArgs(trailingOnly = TRUE)

if (length(args) != 1) {
  stop("the calc_composite_attributes.R script requires exactly one argument: name of run config file ... thank you.  goodbye.")
}

source(args[1])
run_name = gsub(".R", "", args[1])

entities = read.csv(file.path(data_base_dir,
                              "flat.csv"),
                    stringsAsFactors = FALSE)

print(head(entities))

if (!exists("composite_attributes")) {
  file.copy(file.path(data_base_dir,
                      "flat.csv"),
            file.path(data_base_dir,
                    "flat_w_composites.csv"),
            overwrite = TRUE)
} else {

  # composite attributes
  for(j in 1:length(composite_attributes)) {

    attribute_name = gsub("=.*", "", composite_attributes[j]) %>%
                  gsub(" ","", .)

    print(attribute_name)

    attribute_expression = gsub(".*=", "", composite_attributes[j]) %>%
                        gsub(" ","", .)

    print("attribute expression is")
    print(attribute_expression)

    print("names entities is")
    print(names(entities))

    entities[,attribute_name] = parse(text = attribute_expression) %>%
                           eval(envir = entities)
  }

  # commenting out this column sorting now -- better if columns are already provided in desired order in flat.csv
  #entities = entities[,sort(names(entities))]
  #entity_label = entities$entity_label
  #entities$entity_label = NULL
  #entity_group = entities[,group_var]
  #entities[,group_var] = NULL
  #entities %<>% cbind(entity_label, entity_group, .)
  #names(entities)[2] = group_var

  write.csv(entities,
            file.path(data_base_dir,
                      "flat_w_composites.csv"),
	    row.names = FALSE)
}