Commit 790db8ba authored by Reinhold Kainhofer's avatar Reinhold Kainhofer

allow passing NULL to makeQxDataFrame => return empty data.frame

parent 0c05d743
...@@ -22,6 +22,8 @@ makeQxDataFrame = function(..., YOB = 1972, Period = NA, reference = NULL) { ...@@ -22,6 +22,8 @@ makeQxDataFrame = function(..., YOB = 1972, Period = NA, reference = NULL) {
# Allow lists of tables to be passed, too. unlist should always return # Allow lists of tables to be passed, too. unlist should always return
# a list of tables, if if nested lists or only tables are passed as arguments! # a list of tables, if if nested lists or only tables are passed as arguments!
data = unlist(list(...)); data = unlist(list(...));
if (is.null(data)) return(data.frame(x = double(), y = double(), group = character()))
names(data) = lapply(data, function(t) t@name); names(data) = lapply(data, function(t) t@name);
reference_ages = NULL; reference_ages = NULL;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment