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