Fix check warnings and errors.

swarm-lab · Feb 23, 2021 · 135f5ea · 135f5ea
1 parent 5b6bc9f
commit 135f5ea
Show file tree

Hide file tree

Showing 10 changed files with 12 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,6 +27,7 @@ Imports:
  Rfast2 (>= 0.0.8),
  rgenoud (>= 5.8-3.0),
  mvoutlier (>= 2.0.9),
+ cluster (>= 2.1.0),
  CEC (>= 0.10.2)
 Remotes: 
  github::swarm-lab/Rvision

diff --git a/R/backgrounder.R b/R/backgrounder.R
@@ -26,7 +26,7 @@
 #'
 #' @examples
 #' cctv <- Rvision::video(system.file("sample_vid/Walk3.mp4", package = "Rvision"))
-#' background <- backgrounder(cctv, 100)
+#' background <- backgrounder(cctv, 20)
 #' plot(background)
 #'
 #' @export

diff --git a/R/misc.R b/R/misc.R
@@ -89,7 +89,7 @@ optimEllipse <- function(x, y) {
  d <- Rfast::Dist(cbind(x, y))
  start <- c(mean(x), mean(y), max(d), max(d), 0)
 
- opt <- optim(start, function(par) {
+ opt <- stats::optim(start, function(par) {
  sum((.dist2ellipse(x, y, par[1], par[2], par[3], par[4], par[5]) - 1) ^ 2)
  }, method = "L-BFGS-B",
  lower = c(min(x), min(y), -Inf, -Inf, -pi),

diff --git a/R/modules.R b/R/modules.R
@@ -9,7 +9,9 @@
 #' @author Simon Garnier, \email{garnier@@njit.edu}
 #'
 #' @examples
+#' \dontrun{
 #' moduleUI("trackR/video")
+#' }
 #'
 #' @export
 moduleUI <- function(module) {
@@ -33,7 +35,9 @@ moduleUI <- function(module) {
 #' @author Simon Garnier, \email{garnier@@njit.edu}
 #'
 #' @examples
+#' \dontrun{
 #' moduleSVR("trackR/video")
+#' }
 #'
 #' @export
 moduleSVR <- function(module) {

diff --git a/inst/sample/clean.png b/inst/sample/clean.png
diff --git a/inst/sample/full.png b/inst/sample/full.png
diff --git a/inst/sample/mask.png b/inst/sample/mask.png
diff --git a/man/backgrounder.Rd b/man/backgrounder.Rd
diff --git a/man/moduleSVR.Rd b/man/moduleSVR.Rd
diff --git a/man/moduleUI.Rd b/man/moduleUI.Rd