unused attributs removed #154

kassambara · Feb 28, 2017 · b363a96 · b363a96
1 parent 625bc4b
commit b363a96
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/R/ggsurvplot.R b/R/ggsurvplot.R
@@ -659,9 +659,6 @@ ggsurvplot <- function(fit, data = NULL, fun = NULL,
   class(res) <- c("ggsurvplot", "ggsurv", "list")
   attr(res, "heights") <- heights
   attr(res, "legend.labs") <- legend.labs
-  attr(res, "surv.plot.height") <- surv.plot.height
-  attr(res, "risk.table.height") <- risk.table.height
-  attr(res, "ncensor.plot.height") <- ncensor.plot.height
   attr(res, "risk.table.y.text") <- risk.table.y.text
   attr(res, "risk.table.y.text.col") <- risk.table.y.text.col
   attr(res, "cumevents.y.text") <- cumevents.y.text