R/yao_struct.r

In skranz/YamlObjects: Parse a YAML based object / type structure

#' Parsing and assessing experiment and game structures 



is.condition = function(obj,typeName=get.typeName(obj), types=get.types()) {
  return(typeName  == "if" | typeName=="else")
}


#' Creates for an object a table.tree structure 
obj.to.struct = function(obj,name) {
  restore.point("obj.to.struct")
  
#   ignore.fields = ignore.fields.for.tree(obj)
#   if (length(ignore.fields)==0) {
#     st = table.tree(obj,name=name)
#   } else {
#     if (is.character(ignore.fields)) {
#       if (!is.null(names(obj))) {
#         fields = setdiff(names(obj), ignore.fields)
#       } else {
#         fields = seq_along(obj)
#       }
#     } else if (is.numeric(ignore.fields)) {
#       fields = setdiff(seq_along(obj), ignore.fields)
#     }
#     st = table.tree(obj[fields],name=name)
#   }
  
  st = table.tree(obj,name=name)
  obj.li = tt.obj.li(st)
  
  names = colnames(st)
  typeNames = sapply(obj.li, function(obj) {
    attr(obj,"typeName")
  })

  st$typeName = typeNames  
  setcolorder(st, c(names[1:2],"typeName",names[-(1:2)]))
  txt = lapply(obj.li, get.object.string)
  txt = substring(txt,1,40)
  st$content = txt
  

  #names(obj.li) = st$name
  #attr(st,"obj.li") <- obj.li  
  
  st 
}

get.object.string = function(obj) {
  if (is.list(obj) & length(obj)>0) {
    str = paste0("list(", length(obj),"): ",
                 paste0(names(obj),collapse=","))
  } else {
    if (length(obj)>1) {
      str = paste0(substring(class(obj)[1],1,3),"(", length(obj),"): ",
                   paste0(as.character(obj), collapse=","))
    } else {
      str = paste0(as.character(obj), collapse=",")
    }
  }
  str
}


#' Load a game, experiment or dataLink structure
load.struct = function(name, typeName,  file=paste0(default.struct.path(),"/",name,".yaml"), just.obj = FALSE, types=get.types(), text=NULL, add.yaml = TRUE,...) {
 
  if (is.null(text)) {
    text = suppressWarnings(paste(readLines(file), collapse = "\n"))
  } else {
    file = NULL
  }
  
  struct.tree = try(read.yaml(file=file,text=text,...),silent=TRUE)

  # Load again with better error message
  if(is(struct.tree,"try-error")) {
    struct.tree = read.yaml(file=file,text=text,check.by.row = TRUE,...)
  }
  
  restore.point("load.struct")
  
  #print.yaml(struct.tree)
  obj = tree.obj.to.struct.obj(tree.obj=struct.tree,name=name, typeName=typeName,types=types)
  
  if (just.obj)
    return(obj)
    
  struc = obj.to.struct(obj,name=name)
  if (add.yaml) {
    attr(struc,"yaml") = text
  }
  return(struc)
}

#' Get all rows whose type is a subtype of supertype
get.subtype.rows = function(st, supertype) {
  which(is.subtype(st$typeName,supertype))
}

#' Gets the closest parent field that is a subtype of supertype 
get.parent.field.row = function(row, st, supertype) {
  #restore.point("get.parent.field.row")
  row = st$parent[row]
  while (row !=0) {
    if (is.subtype(st$typeName[row],supertype)) {
      return(row)
    }
    row = st$parent[row]    
  }
  return(NULL)
}

#' Gets all rows of objects that are structure parents of the current objects
get.parents.rows = function(row, st) {
  restore.point("get.parents.rows")
  pr = st$parent[row]    
  if (pr >0) {
    return(c(pr, get.parents.rows(pr,st)))
  } else {
    return(NULL)
  }
}

examples.get.conditions = function() {
  examples.yaml.objects.settings()
  file = "D:/libraries/XEconDB/Structures/Games/CostCoord.yaml"
  name="ReducedLureOfAuthority"
  file = "D:/libraries/XEconDB/Structures/Games/ReducedLureOfAuthority.yaml"

  gs = load.struct(name=name,file=file)
 
  get.conditions(130,gs)
  
  get.conditions(65,gs)
  
  get.conditions(96,gs)
  get.conditions(234,gs)
  get.conditions(228,gs)
  
}