Skip to contents

Pre-select UI elements in a bscui widget

Usage

set_bscui_selection(widget, selected)

Arguments

widget

a bscui object

selected

identifiers of pre-selected identifiers

Value

The modified bscui object

Examples

##################################@
### Preparing data ----

library(bscui)
library(xml2)
library(readr)
library(dplyr)

svg <- xml2::read_xml(system.file(
   "examples", "Animal_cells.svg.gz",
   package="bscui"
))
info <- readr::read_tsv(system.file(
   "examples", "uniprot_cellular_locations.txt.gz",
   package="bscui"
), col_types=strrep("c", 6)) |>
   mutate(id = sub("-", "", `Subcellular location ID`))

##################################@
### Building the figure ----

figure <- bscui(svg) |>
   set_bscui_ui_elements(
      info |>
         mutate(
            ui_type = "selectable",
            title = Name
         ) |>
         select(id, ui_type, title)
   ) |>
   set_bscui_styles(
      info |>
         filter(Name == "Cytosol") |>
         mutate(fill = "#FF7F7F") |>
         select(id, fill)
   ) |>
   set_bscui_attributes(
      info |>
         filter(Name == "Cytoskeleton") |>
         mutate(display = "none") |>
         select(id, display)
   ) |>
   set_bscui_selection("SL0188") |>
   set_bscui_options(zoom_min=1, clip=TRUE)
figure
##################################@ ### Saving the figure ---- if(interactive()){ ## Temporary directory to save example file tdir <- tempdir() ## Interactive html file f_path <- file.path(tdir, "figure.html") figure |> htmlwidgets::saveWidget(file=f_path) cat(f_path) ## PNG image f_path <- file.path(tdir, "figure.png") figure |> set_bscui_options(show_menu = FALSE) |> export_bscui_to_image(file=f_path, zoom=2) cat(f_path) }