Nothing
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.