updated the thing

DESCRIPTION

@@ -10,7 +10,7 @@ Authors@R: c(person("Jon","Clayden",role=c("cre","aut"),email="code@clayden.org"
              person("Kate","Fissell",role="ctb"),
              person("Jean-loup","Gailly",role="cph"),
              person("Mark","Adler",role="cph"))
-Imports: Rcpp (>= 0.11.0)
+Imports: Rcpp (>= 0.11.0), methods
 Suggests: testthat (>= 0.11.0), covr, reportr
 Enhances: oro.nifti, tractor.base
 LinkingTo: Rcpp

NAMESPACE

@@ -36,6 +36,9 @@ export(voxelToWorld)
 export(worldToVoxel)
 export(writeNifti)
 export(xform)
+exportClasses(internalImage)
+exportClasses(niftiImage)
+import(methods)
 importFrom(Rcpp,evalCpp)
 importFrom(utils,object.size)
 useDynLib(RNifti)

R/image.R

@@ -12,7 +12,6 @@
 #' @param ... Additional parameters to methods. Currently unused.
 #' 
 #' @author Jon Clayden <code@@clayden.org>
-#' @aliases internalImage
 #' @rdname internalImage
 #' @export
 dim.internalImage <- function (x)
@@ -27,6 +26,15 @@ dim.internalImage <- function (x)
     stop("Dimensions of an internal image cannot be changed")
 }
 
+
+#' @name internalImage-class
+#' @aliases internalImage
+#' 
+#' @rdname internalImage
+#' @exportClass internalImage
+setOldClass("internalImage")
+
+
 #' @rdname internalImage
 #' @export
 as.array.internalImage <- function (x, ...)

R/is_class.R

@@ -7,7 +7,7 @@
 #' @export
 #' 
 #' @examples
-#' file = system.file("extdata", "example.nii.gz")
+#' file = system.file("extdata", "example.nii.gz", package = "RNifti")
 #' is.niftiImage(file)
 #' img = readNifti(file)
 #' is.niftiImage(img)

R/niftiImage_class.R

@@ -0,0 +1,11 @@
+#' "niftiImage" class
+#'
+#' @name niftiImage-class
+#' @aliases niftiImage
+#' @family niftiImage
+#' 
+#' @import methods
+#'
+#' @exportClass niftiImage
+setOldClass("niftiImage")
+