Skip to contents

Add an SVG element to the UI

Usage

add_bscui_element(proxy, id, svg_txt, ui_type = NULL, title = NULL)

Arguments

proxy

a bscui_Proxy object

id

the identifier of the element to add (will replace the id attribute of the provided svg if any)

svg_txt

a character with SVG code of one element and its children

ui_type

either "selectable", "button" or "none". If NULL (default), the element won't be available as UI

title

a description of the element to display on mouseover event

Value

the provided proxy object

Examples

if(interactive()){
   from_shiny <- new.env()
   shiny::runApp(system.file(
      "examples", "shiny-anatomogram", package = "bscui"
   ))
   for(n in names(from_shiny)){
      bscui(from_shiny[[n]]) |> print()
   }
}