commit 8a69ad1c2e774422b7427c0651c3c34e892102dd
author Hao Zhu <haozhu233@gmail.com> Wed Jan 10 18:01:41 2018 -0500
committer Hao Zhu <haozhu233@gmail.com> Wed Jan 10 18:01:41 2018 -0500
tree 43cc010d920238741914700b5a4083dbbbf5ad95
parent eaef431224b33d36003dcb78d6e2e03c4e727eaf

add js to enable popover and hover message

R/spec_tools.R

diff --git a/R/spec_tools.R b/R/spec_tools.R
index b1892b2..76fb7dd 100644
--- a/R/spec_tools.R
+++ b/R/spec_tools.R
@@ -95,7 +95,8 @@
 #'
 #' @export
 spec_tooltip <- function(title, position = "right") {
-  position <- match.arg(position, c("right", "bottom", "top", "left", "auto"))
+  position <- match.arg(position, c("right", "bottom", "top", "left", "auto"),
+                        several.ok = TRUE)
   tooltip_options <- paste(
     'data-toggle="tooltip"',
     paste0('data-placement="', position, '"'),