diff --git a/NAMESPACE b/NAMESPACE index e804ca8..810b751 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -8,6 +8,7 @@ S3method(as.Configuration,ppp) S3method(as.Window,Window) S3method(as.Window,im) S3method(as.Window,owin) +S3method(as.data.frame,Configuration) S3method(as.owin,Disk_window) S3method(as.owin,Rectangle_window_union) S3method(as.ppp,Configuration) diff --git a/R/Configuration.R b/R/Configuration.R index d7d4882..e51c511 100644 --- a/R/Configuration.R +++ b/R/Configuration.R @@ -301,7 +301,7 @@ marks.Configuration <- function(x, ...) { #' #' @param x Configuration. #' @param ... Unused. -#' @exportS3Method as.data.frame Configuration +#' @method as.data.frame Configuration #' @examples #' set.seed(1) #' @@ -311,6 +311,7 @@ marks.Configuration <- function(x, ...) { #' # Convert it to a data.frame #' print(as.data.frame(configuration)) #' +#' @export as.data.frame.Configuration <- function(x, ...) { data.frame(x = x$x, y = x$y,