tanu/tb-host-dashboard
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

shiny-server version

Browse source
This commit is contained in:
Tanushree Tunstall 2022-12-12 08:34:03 +00:00
parent ef6a6739a5
commit 8c96f1a317
3 changed files with 313 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
app.R
View file

@ -34,8 +34,8 @@ options(DT.options = list(scrollX = TRUE))
# Gitea access token
access_token = read_lines("~/secret-token")
gene_url = "https://git.tunstall.in/api/v1/repos/tanu/fellowship_dcdf/raw/tb_data_fc/dashboard/list_unique_missense_genes.csv"
missense_gene_url = "https://git.tunstall.in/api/v1/repos/tanu/fellowship_dcdf/raw/tb_data_fc/dashboard/missense_genes_params.csv"
gene_url = "https://git.tunstall.in/api/v1/repos/tanu/fellowship_dcdf/raw/tb_data_fc/data_dashboard/list_unique_missense_genes.csv"
missense_gene_url = "https://git.tunstall.in/api/v1/repos/tanu/fellowship_dcdf/raw/tb_data_fc/data_dashboard/missense_genes_params.csv"
alphafold_url = "https://alphafold.ebi.ac.uk/files/"
genes=read_csv(paste0(gene_url,"?token=",access_token))
@ -229,7 +229,10 @@ server <- function(input, output) {
#"<strong>PROVEAN: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"provean_score"]), "<br/>",
"<strong>PROVEAN Outcome: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"provean_outcome"]), "<br/>",
"<strong>RSA: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"rsa"]), "<br/>",
"<strong>Residue Depth: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"rd_values"]), "<br/>"
"<strong>Residue Depth: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"rd_values"]), "<br/>",
"<strong>Total Samples: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"total_sample_count"]), "<br/>",
"<strong>Distinct Lineages: </strong>", as.character(unique_missense_genes[input$table_rows_selected,"distinct_lineage_count"]), "<br/>"
)
)
@ -286,7 +289,7 @@ server <- function(input, output) {
opacity = 0.2
)
) %>%
addSelection(type="spacefill",
addSelection(type="ball+stick", #spacefill
param = list(name = "all_mutations",
color="orange",
sele = mutations
@ -304,7 +307,7 @@ server <- function(input, output) {
opacity = 0.2
)
) %>%
addSelection(type="spacefill",
addSelection(type="ball+stick", #spacefill
param = list(name = "all_mutations",
color="orange",
sele = mutations
@ -318,3 +321,4 @@ server <- function(input, output) {
# Run the application
shinyApp(ui = ui, server = server)