Commit d06afcbc authored by Reinhold Kainhofer's avatar Reinhold Kainhofer

Remove vector (row)names so that bind_rows does not complain about duplicate row names

parent 7fdc1872
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
#' @export #' @export
makeQxDataFrame = function(..., YOB = 1972, Period = NA, reference = NULL) { 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, even 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())) if (is.null(data)) return(data.frame(x = double(), y = double(), group = character()))
...@@ -35,7 +35,7 @@ makeQxDataFrame = function(..., YOB = 1972, Period = NA, reference = NULL) { ...@@ -35,7 +35,7 @@ makeQxDataFrame = function(..., YOB = 1972, Period = NA, reference = NULL) {
} }
data = lapply(data, function(t) { data = lapply(data, function(t) {
normalize_deathProbabilities( normalize_deathProbabilities(
cbind(x = ages(t), y = deathProbabilities(t, YOB = YOB)), cbind(x = ages(t), y = `names<-`(deathProbabilities(t, YOB = YOB), NULL)),
reference = reference, reference = reference,
referenceAges = reference_ages) referenceAges = reference_ages)
}); });
......
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