beidsServer | R Documentation |
Shiny module for searching BEIDs
beidsServer( id, toGene = TRUE, multiple = FALSE, beOfInt = NULL, selectBe = TRUE, orgOfInt = NULL, selectOrg = TRUE, tableHeight = 150 ) beidsUI(id)
id |
an identifier for the module instance |
toGene |
focus on gene entities (default=TRUE): matches from other BE are converted to genes. |
multiple |
allow multiple selections (default=FALSE) |
beOfInt |
if toGene==FALSE, BE to consider (default=NULL ==> all) |
selectBe |
if toGene==FALSE, display an interface for selecting BE |
orgOfInt |
organism to consider (default=NULL ==> all) |
selectOrg |
display an interface for selecting organisms |
tableHeight |
height of the result table (default: 150) |
A reactive data.frame with the following columns:
beid: the BE identifier
preferred: preferred identifier for the same BE in the same scope
be: the type of biological entity
source: the source of the identifier
organism: the BE organism
entity: internal identifier of the BE
match: the matching character string
beidsUI()
:
## Not run: library(shiny) library(BED) library(DT) ui <- fluidPage( beidsUI("be"), fluidRow( column( 12, tags$br(), h3("Selected gene entities"), DTOutput("result") ) ) ) server <- function(input, output){ found <- beidsServer("be", toGene=TRUE, multiple=TRUE, tableHeight=250) output$result <- renderDT({ req(found()) toRet <- found() datatable(toRet, rownames=FALSE) }) } shinyApp(ui = ui, server = server) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.