In sigven/oncoEnrichR: Cancer-dedicated gene set interpretation

Query verification

cat('<br><br>\n <span style="font-size:110%; line-height:110%; padding:3px; background-color:#800026; color:white">&nbsp;<b> - IMPORTANT NOTICE:</b> Due to invalid entries in the query set, analysis is halted.&nbsp;&nbsp;<br>&nbsp;&nbsp; - Set <i>\'Ignore errenous identifiers (ignore_id_err)\'</i> = TRUE in order to ignore invalid entries and complete the analysis &nbsp;&nbsp; with <i>oncoEnrichR</i>.&nbsp;&nbsp; </span>',sep='\n')
cat('\n')
cat('<br><br>')

A total of n = r NROW(onc_enrich_report[['data']][['query']][['target']]) target identifiers were provided (type: r onc_enrich_report[["config"]][["query"]][["id_type"]], option ignore_id_err = r onc_enrich_report[["config"]][["query"]][["ignore_err"]])
All query identifiers have been mapped towards identifiers for known human genes (including non-ambiguous aliases), and valid/invalid entries in the query set are indicated as follows:
Valid identifier : n = r NROW(onc_enrich_report[['data']][['query']][['target']] |> dplyr::filter(status == 'found'))
Valid identifier (mapped as alias) : n = r NROW(onc_enrich_report[['data']][['query']][['target']] |> dplyr::filter(status == 'found_as_alias'))
Invalid identifier : n = r NROW(onc_enrich_report[['data']][['query']][['target']] |> dplyr::filter(status == 'not_found'))

htmltools::br()
DT::datatable(onc_enrich_report[['data']][['query']][['target']], escape = F, 
              extensions=c("Buttons","Responsive"), 
              width = "100%",
              options=list(buttons = c('csv','excel'), 
                           dom = 'Bfrtip')) |>
  DT::formatStyle(columns = c("query_id"),
                  valueColumns = c('status'),
                  color = "white", 
                  backgroundColor = DT::styleEqual(
                  c('found','not_found','found_as_alias'), 
                  c("#005a32","#800026","#238b45"))
  )