R/zzz_constants.R

In datadr: Divide and Recombine for Large, Complex Data

getDr <- function(name) get(name, envir = .datadrEnv)

.datadrEnv <- new.env()

# extractableKV: can you access k/v pairs by key?

# any object of class ddo must have these attributes
assign("requiredDdoAttrs", c("conn", "keys", "keyHashes", "extractableKV", "totStorageSize", "totObjectSize", "nDiv", "splitSizeDistn", "example", "bsvInfo", "div", "counters"), envir = .datadrEnv)

# any object of class ddf must have these attributes
assign("requiredDdfAttrs", c("vars", "badSchema", "nRow", "splitRowDistn", "summary"), envir = .datadrEnv)

# attributes that have been implemented in updateAttributes
assign("implementedAttrVars", c("splitSizeDistn", "totObjectSize", "keys", "nDiv", "nRow", "splitRowDistn", "summary"), envir = .datadrEnv)

# print method helpers for ddo attributes
assign("ddoAttrPrintList", list(
  # "keys" = list(
  #   name = "keys",
  #   desc = "have all the keys been read in and saved?",
  #   render = function(x) ifelse(!all(is.na(x)) || length(x) > 1, "keys are available through getKeys(dat)", "[empty] call updateAttributes(dat) to get this value")),
  "totStorageSize" = list(
    name = "size (stored)",
    desc = "total size of data in storage",
    render = function(x) NArender(x, prettySize(x), "[empty] call updateAttributes(dat) to get this value")),
  "totObjectSize" = list(
    name = "size (object)",
    desc = "total size of data as R objects",
    render = function(x) NArender(x, prettySize(x), "[empty] call updateAttributes(dat) to get this value")),
  "nDiv" = list(
    name = "# subsets",
    desc = "number of key-value pairs",
    render = function(x) NArender(x, x, "[empty] call updateAttributes(dat) to get this value")),
  # "splitSizeDistn" = list(
  #   name = "splitSizeDistn",
  #   desc = "distribution of the size of key-value pairs",
  #   render = function(x) NArender(x, "use splitSizeDistn(dat) to get distribution", "[empty] call updateAttributes(dat) to get this value")),
  # "example" = list(
  #   name = "example",
  #   desc = "example subsets of the data",
  #   render = function(x) NArender(x, "use kvExample(dat) to get an example subset", "[empty] call updateAttributes(dat) to get this value")),
  "bsvInfo" = list(
    name = "bsvInfo",
    desc = "table of information about bsvs",
    render = function(x) NArender(x, "use bsvInfo(dat) to get BSV info", NA))
), envir = .datadrEnv)

# print method helpers for ddf attributes
assign("ddfAttrPrintList", list(
  "vars" = list(
    name = "names",
    desc = "variables in the data frame",
    render = printVars),
    # "badSchema" = list(
    #   desc = "which subsets have a 'schema' that does not match the majority",
    #   render = function(x) "(not implemented)"),
  "nRow" = list(
    name = "nrow",
    desc = "number of rows in the data frame",
    render = function(x) NArender(x, x, "[empty] call updateAttributes(dat) to get this value"))
    # "splitRowDistn" = list(
    #   name = "splitRowDistn",
    #   desc = "distribution of the number of rows in each key-value pair",
    #   render = function(x) NArender(x, "use splitRowDistn(dat) to get distribution", "[empty] call updateAttributes(dat) to get this value")),
    # "summary" = list(
    #   name = "summary",
    #   desc = "summary statistics for each variable",
    #   render = function(x) NArender(x, "use summary(dat) to see summaries", "[empty] call updateAttributes(dat) to get this value"))
), envir = .datadrEnv)

# print method helpers for div attributes
assign("divAttrPrintList", list(
  "condDiv" = list(
    desc = "Conditioning variable division",
    render = condDivText),
  "rrDiv" = list(
    desc = "Random replicate divison",
    render = rrDivText)
), envir = .datadrEnv)