Protein-protein interaction network




PPI network - STRING {.tabset}



Complete network
visNetwork::visNetwork(
  onc_enrich_report[['data']][['ppi']][['string']][['complete_network']]$nodes, 
  onc_enrich_report[['data']][['ppi']][['string']][['complete_network']]$edges) |>
  visNetwork::visInteraction(multiselect = TRUE, tooltipDelay = 300) |>
  visNetwork::visIgraphLayout(layout="layout_nicely")
cat('<br>')
cat('\n <ul><li>  <i> <span style="font-size: 100%; padding: 3px; background-color:#989898; color:white">&nbsp;&nbsp;No protein-protein interactions from STRING were found among members in the query set (with the required association score). Lowering the assocation score threshold of for interactions in STRING may provide a network. &nbsp;&nbsp; </span></i></li></ul>',sep='\n')
cat('\n')
cat('<br><br>')



Network communities
visNetwork::visNetwork(
  onc_enrich_report[['data']][['ppi']][['string']][['community_network']]$nodes, 
  onc_enrich_report[['data']][['ppi']][['string']][['community_network']]$edges) |>
  visNetwork::visInteraction(multiselect = TRUE, tooltipDelay = 300) |>
  visNetwork::visIgraphLayout(layout="layout_nicely")
cat('<br>')
cat('\n <ul><li>  <i> <span style="font-size: 100%; padding: 3px; background-color:#989898; color:white">&nbsp;&nbsp;No network communities were found among members in the query set (with the required association score). Lowering the assocation score threshold of for interactions in STRING may provide a network and associated communities. &nbsp;&nbsp; </span></i></li></ul>',sep='\n')
cat('\n')
cat('<br><br>')



Network hubs
htmltools::br()
DT::datatable(onc_enrich_report[['data']][['ppi']][['string']][['hubscores']], 
              escape = F, extensions=c("Buttons","Responsive"), width = "100%",
              options=list(buttons = c('csv','excel'),dom = 'Bfrtip', pagelength = 20)) |>
  DT::formatStyle("symbol","hub_score", color = "white", backgroundColor = DT::styleInterval(onc_enrich_report[['config']][['disease']][['breaks']], onc_enrich_report[['config']][['disease']][['colors']]))
cat('<br>')
cat('\n <ul><li>  <i> <span style="font-size: 100%; padding: 3px; background-color:#989898; color:white">&nbsp;&nbsp;No hubscores from the protein-protein interaction network were established for members in the query set (with the required association score). Lowering the assocation score threshold of for interactions in STRING may provide a network with hubscores. &nbsp;&nbsp; </span></i></li></ul>',sep='\n')
cat('\n')
cat('<br><br>')



PPI network - BioGRID {.tabset}



Complete network
visNetwork::visNetwork(
  onc_enrich_report[['data']][['ppi']][['biogrid']][['complete_network']]$nodes, 
  onc_enrich_report[['data']][['ppi']][['biogrid']][['complete_network']]$edges) |>
  visNetwork::visInteraction(multiselect = TRUE, tooltipDelay = 300) |>
  visNetwork::visIgraphLayout(layout="layout_nicely")
cat('<br>')
cat('\n <ul><li>  <i> <span style="font-size: 100%; padding: 3px; background-color:#989898; color:white">&nbsp;&nbsp;No protein-protein interactions from BioGRID were found among members in the query set (with the required evidence support). Lowering the required evidence support for interactions in BioGRID may provide a network. &nbsp;&nbsp; </span></i></li></ul>',sep='\n')
cat('\n')
cat('<br><br>')



Network communities
visNetwork::visNetwork(
  onc_enrich_report[['data']][['ppi']][['biogrid']][['community_network']]$nodes, 
  onc_enrich_report[['data']][['ppi']][['biogrid']][['community_network']]$edges) |>
  visNetwork::visInteraction(multiselect = TRUE, tooltipDelay = 300) |>
  visNetwork::visIgraphLayout(layout="layout_nicely")
cat('<br>')
cat('\n <ul><li>  <i> <span style="font-size: 100%; padding: 3px; background-color:#989898; color:white">&nbsp;&nbsp;No network communities were found among members in the query set (with the required evidence support). Lowering the required evidence support for interactions in BioGRID may provide a network and associated communities. &nbsp;&nbsp; </span></i></li></ul>',sep='\n')
cat('\n')
cat('<br><br>')



Network hubs
htmltools::br()
DT::datatable(onc_enrich_report[['data']][['ppi']][['biogrid']][['hubscores']], 
              escape = F, extensions=c("Buttons","Responsive"), width = "100%",
              options=list(buttons = c('csv','excel'),dom = 'Bfrtip', pagelength = 20)) |>
  DT::formatStyle("symbol","hub_score", color = "white", 
                  backgroundColor = DT::styleInterval(
                    onc_enrich_report[['config']][['disease']][['breaks']],                                                                                           onc_enrich_report[['config']][['disease']][['colors']])
  )
cat('<br>')
cat('\n <ul><li>  <i> <span style="font-size: 100%; padding: 3px; background-color:#989898; color:white">&nbsp;&nbsp;No hubscores from the protein-protein interaction network were established for members in the query set (with the required evidence support). Lowering the required evidence support for interactions in BioGRID may provide a network with hubscores. &nbsp;&nbsp; </span></i></li></ul>',sep='\n')
cat('\n')
cat('<br><br>')


{.unlisted .unnumbered .toc-ignore}

  Citation Note   : If you use the output of the Protein-protein interaction network module of oncoEnrichR in your research, please cite the following resources and tools as appropriate:





sigven/oncoEnrichR documentation built on Aug. 31, 2023, 8:05 a.m.