hover Alerts

ebailey78 · Jul 1, 2016 · c329f8c · c329f8c
1 parent fea14c4
commit c329f8c
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 2 deletions.
diff --git a/R/bsAlert.R b/R/bsAlert.R
@@ -10,9 +10,12 @@
 #'@template item_details
 #'@template footer
 #'@export
-bsAlert <- function(anchorId) {
+bsAlert <- function(anchorId, inline = TRUE) {
 
-  bsTag <- shiny::tags$div(class = "sbs-alert", id = anchorId, " ")
+  class <- "sbs-alert"
+  if(!inline) class = paste(class, "sbs-alert-hover")
+
+  bsTag <- shiny::tags$div(class = class, id = anchorId, " ")
   htmltools::attachDependencies(bsTag, shinyBSDep)
 
 }
diff --git a/inst/www/shinyBS.css b/inst/www/shinyBS.css
@@ -0,0 +1,12 @@
+.sbs-alert-hover {
+  position: absolute;
+  z-index: 1000;
+  width: 30%;
+  margin-left: 35%;
+  margin-top: 10px;
+  opacity: 0.7;
+}
+
+.sbs-alert-hover:hover {
+  opacity: 1.0;
+}