Create a Metro 4 charms

Build a Metro charms

metroCharms(
  ...,
  id,
  position = c("right", "left", "top", "bottom"),
  opacity = NULL,
  background = "back"
)

Arguments

...	Any UI element.
id	Charms unique id. Needed by the charmsToggle.
position	Charms position: right, left, top or bottom.
opacity	Charms opacity. NULL by default. Between 0 and 1.
background	Charms background color. "black" by default.

Examples

if(interactive()){
 library(shiny)
 library(shinyMetroUi)

 shiny::shinyApp(
   ui = metroPage(
    br(), br(), br(), br(),
    charmsToggle(id = "mycharm", "Toggle charms"),
    metroCharms(
     id = "mycharm",
     background = "dark",
     position = "top",
     opacity = "0.5",
     sliderInput(
      "obs",
      "Number of observations:",
      min = 0,
      max = 1000,
      value = 500
     )
    )
   ),
   server = function(input, output) {}
 )
}