Tried to fix a problem, created more problems, now they're all fixed.

NAMESPACE

@@ -255,12 +255,7 @@ export(writeFrame)
 export(writeMulti)
 export(writerOuput)
 export(zeros)
-exportClasses(Image)
-exportClasses(Queue)
-exportClasses(Stream)
-exportClasses(Video)
 exportClasses(VideoStack)
-exportClasses(VideoWriter)
 import(ROpenCVLite)
 import(Rcpp)
 import(methods)

R/ImageClass.R

@@ -2,7 +2,7 @@
 #'
 #' @name Image-class
 #'
-#' @aliases Rcpp_Image
+#' @aliases Rcpp_Image Image
 #'
 #' @docType class
 #'
@@ -32,24 +32,7 @@
 #'
 #' @author Simon Garnier, \email{garnier@@njit.edu}
 #'
-#' @seealso \code{\link{image}}, \code{\link{Video}}, \code{\link{Stream}}
-#'
-#' @export
-setClass("Image",
-  representation(
-    cpp = "C++Object"
-  ),
-  prototype(
-    cpp = NULL
-  ),
-  validity = function(object) {
-    if (is.null(object@cpp) || is(object@cpp, "Rcpp_Image")) {
-      return(TRUE)
-    } else {
-      return(FALSE)
-    }
-  }
-)
+#' @seealso \code{\link{image}}
 
 
 #' @title Create an Object of Class \code{Image}
@@ -80,7 +63,7 @@ setClass("Image",
 #'
 #' @export
 image <- function(..., colorspace = "BGR") {
-  new(Rvision::Image, ..., colorspace)
+  new(Image, ..., colorspace)
 }
 
 

R/QueueClass.R

@@ -2,7 +2,7 @@
 #'
 #' @name Queue-class
 #'
-#' @aliases Rcpp_Queue
+#' @aliases Rcpp_Queue Queue
 #'
 #' @docType class
 #'
@@ -37,24 +37,7 @@
 #'
 #' @author Simon Garnier, \email{garnier@@njit.edu}
 #'
-#' @seealso \code{\link{Video}}, \code{\link{Stream}}
-#'
-#' @export
-setClass("Queue",
-  representation(
-    cpp = "C++Object"
-  ),
-  prototype(
-    cpp = NULL
-  ),
-  validity = function(object) {
-    if (is.null(object@cpp) || is(object@cpp, "Rcpp_Queue")) {
-      return(TRUE)
-    } else {
-      return(FALSE)
-    }
-  }
-)
+#' @seealso \code{\link{queue}}, \code{\link{Video}}, \code{\link{Stream}}
 
 
 #' @title Create an Object of Class \code{Queue}

R/StreamClass.R

@@ -2,7 +2,7 @@
 #'
 #' @name Stream-class
 #'
-#' @aliases Rcpp_Stream
+#' @aliases Rcpp_Stream Stream
 #'
 #' @docType class
 #'
@@ -21,24 +21,7 @@
 #'
 #' @author Simon Garnier, \email{garnier@@njit.edu}
 #' 
-#' @seealso \code{\link{VideoWriter}}, \code{\link{Stream}}
-#' 
-#' @export
-setClass("Stream",
-  representation(
-    cpp = "C++Object"
-  ),
-  prototype(
-    cpp = NULL
-  ),
-  validity = function(object) {
-    if (is.null(object@cpp) || is(object@cpp, "Rcpp_Stream")) {
-      return(TRUE)
-    } else {
-      return(FALSE)
-    }
-  }
-)
+#' @seealso \code{\link{stream}}, \code{\link{queue}}
 
 
 #' @title Create an Object of Class \code{Stream}

R/VideoClass.R

@@ -2,7 +2,7 @@
 #'
 #' @name Video-class
 #'
-#' @aliases Rcpp_Video
+#' @aliases Rcpp_Video Video
 #'
 #' @docType class
 #'
@@ -30,22 +30,8 @@
 #'
 #' @author Simon Garnier, \email{garnier@@njit.edu}
 #'
-#' @export
-setClass("Video",
-  representation(
-    cpp = "C++Object"
-  ),
-  prototype(
-    cpp = NULL
-  ),
-  validity = function(object) {
-    if (is.null(object@cpp) || is(object@cpp, "Rcpp_Video")) {
-      return(TRUE)
-    } else {
-      return(FALSE)
-    }
-  }
-)
+#' @seealso \code{\link{video}}, \code{\link{queue}}
+
 
 
 #' @title Create an Object of Class \code{Video}

R/VideoWriterClass.R

@@ -2,7 +2,7 @@
 #'
 #' @name VideoWriter-class
 #'
-#' @aliases Rcpp_VideoWriter
+#' @aliases Rcpp_VideoWriter VideoWriter
 #'
 #' @docType class
 #'
@@ -29,23 +29,8 @@
 #' @slot release Function to release the object from memory.
 #'
 #' @author Simon Garnier, \email{garnier@@njit.edu}
-#' 
-#' @export
-setClass("VideoWriter",
-  representation(
-    cpp = "C++Object"
-  ),
-  prototype(
-    cpp = NULL
-  ),
-  validity = function(object) {
-    if (is.null(object@cpp) || is(object@cpp, "Rcpp_VideoWriter")) {
-      return(TRUE)
-    } else {
-      return(FALSE)
-    }
-  }
-)
+#'
+#' @seealso \code{\link{videoWriter}}
 
 
 #' @title Create an object of class \code{VideoWriter}