From 93ed1d1a38e6a1c1e7b86788266f7e40e311cd7b Mon Sep 17 00:00:00 2001
From: Dean Attali <daattali@gmail.com>
Date: Wed, 24 Aug 2016 02:37:29 -0700
Subject: [PATCH] make cran checks happy

---
 DESCRIPTION    | 1 +
 R/api.R        | 2 +-
 R/timevis.R    | 2 +-
 man/timevis.Rd | 2 +-
 4 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b6fbf9a..ed2b0fb 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -22,6 +22,7 @@ Imports:
     htmlwidgets (>= 0.6),
     jsonlite,
     magrittr,
+    methods,
     rmarkdown,
     shiny
 Suggests:
diff --git a/R/api.R b/R/api.R
index b4c92ca..fcb049e 100644
--- a/R/api.R
+++ b/R/api.R
@@ -7,7 +7,7 @@ callJS <- function() {
   # initialization of the widget, so keep track of the desired function call
   # by adding it to a list of functions that should be performed when the widget
   # is ready
-  if (is(message$id, "timevis")) {
+  if (methods::is(message$id, "timevis")) {
     widget <- message$id
     message$id <- NULL
     widget$x$api
diff --git a/R/timevis.R b/R/timevis.R
index e399512..8decb8a 100644
--- a/R/timevis.R
+++ b/R/timevis.R
@@ -179,7 +179,7 @@
 #'   setSelection("3") %>%
 #'   fitWindow(list(animation = FALSE))
 #'
-#' #----------------------- Items can be a single point or a range, and can contain HTML -----------------
+#' #------- Items can be a single point or a range, and can contain HTML -------
 #' timevis(
 #'   data.frame(id = 1:2,
 #'              content = c("one", "two<br><h3>HTML is supported</h3>"),
diff --git a/man/timevis.Rd b/man/timevis.Rd
index aab985e..af33545 100644
--- a/man/timevis.Rd
+++ b/man/timevis.Rd
@@ -209,7 +209,7 @@ timevis() \%>\%
   setSelection("3") \%>\%
   fitWindow(list(animation = FALSE))
 
-#----------------------- Items can be a single point or a range, and can contain HTML -----------------
+#------- Items can be a single point or a range, and can contain HTML -------
 timevis(
   data.frame(id = 1:2,
              content = c("one", "two<br><h3>HTML is supported</h3>"),