R/functions.R
generateOncotreeUIwidgets.RdCreate shiny UI-widget for specific columns of oncotree entries
generateOncotreeUIwidgets( colname, mode = c("add", "edit"), tab = c("Patient", "Sample") )
| colname | column name |
|---|---|
| mode | determines the inputId prefix of the UI-widget |
| tab | "Patient", "Sample" - The used tab; sets the html id prefix of the input |
A oncotree specific shiny UI-widget
oncotree <- jsonlite::fromJSON(system.file("extdata", "oncotree.json", package = "cbpManager")) cancer_type <- unique(oncotree$mainType[which(!is.na(oncotree$mainType))]) cbpManager:::generateOncotreeUIwidgets("CANCER_TYPE", "add") #> Error in hasGroups(choices): Objekt 'cancer_type' nicht gefunden