generate a selectInput control for an ontologyIndex slice
makeSelectInput(
onto,
term,
type = "siblings",
inputId,
label,
multiple = TRUE,
...
)
ontologyIndex instance
character(1) term used as basis for term list option set in the control
character(1) 'siblings' or 'children', relationship to 'term' that the options will satisfy
character(1) for use in server
character(1) for labeling in ui
logical(1) passed to selectInput
additional parameters passed to selectInput
a selectInput
control
makeSelectInput
#> function (onto, term, type = "siblings", inputId, label, multiple = TRUE,
#> ...)
#> {
#> stopifnot(term %in% onto$name)
#> print(type)
#> stopifnot(type %in% c("siblings", "children"))
#> ind = match(term, onto$name)
#> tag = onto$id[[ind]]
#> if (type == "siblings")
#> tset = siblings_TAG(tag, onto)
#> else if (type == "children")
#> tset = children_TAG(tag, onto)
#> selectInput(inputId, paste0(label, ": ", term, " (", type,
#> ")"), choices = unname(tset@cleanFrame$clean), multiple = multiple,
#> ...)
#> }
#> <bytecode: 0x55ec9b51d788>
#> <environment: namespace:ontoProc>