From b6e8046e52878c22f34d8c8f72e0bae61fbca865 Mon Sep 17 00:00:00 2001 From: boB Rudis Date: Wed, 21 Aug 2019 06:24:33 -0400 Subject: [PATCH] print method update --- R/create.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/R/create.R b/R/create.R index 0078827..88d86e0 100644 --- a/R/create.R +++ b/R/create.R @@ -78,6 +78,10 @@ print.tdigest <- function(x, ...) { cat( "\n", sep="" ) } @@ -226,7 +230,7 @@ length.tdigest <- function(x) { #' as_tdigest(as.list(td)) as.list.tdigest <- function(x, ...) { stopifnot(inherits(x, "tdigest")) - out <- .Call("Rg_toR", x) + out <- .Call("Rg_toR", x, PACKAGE="tdigest") class(out) <- c("tdigest_list", "list") out } @@ -235,5 +239,5 @@ as.list.tdigest <- function(x, ...) { #' @export as_tdigest <- function(x) { stopifnot(inherits(x, "tdigest_list")) - .Call("Rg_fromR", x) + .Call("Rg_fromR", x, PACKAGE="tdigest") } -- 2.45.2