make cran checks happy

Author: daattali

DESCRIPTION

@@ -22,6 +22,7 @@ Imports:
     htmlwidgets (>= 0.6),
     jsonlite,
     magrittr,
+    methods,
     rmarkdown,
     shiny
 Suggests:

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

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>"),