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

aaaaaaa

Browse source
This commit is contained in:
Tanushree Tunstall 2022-12-11 19:47:38 +00:00
parent 568fef38ae
commit a0866a136a
1 changed files with 32 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

63
tb_host/app.R
View file

@ -260,17 +260,19 @@ server <- function(input, output) {
input$all_mutations input$all_mutations
}, { }, {
gene = input$gene gene = input$gene
mutations = paste0( mutations = paste0(":",
apply( as.matrix(unique_missense_genes[unique_missense_genes$gene_name == gene,c("chain")])[1],
unique_missense_genes[unique_missense_genes$gene_name == gene,c("position","chain")], " and (",
1, paste0(
function(x){ apply(
paste0(trimws(x[1]), unique_missense_genes[unique_missense_genes$gene_name == gene,c("position","chain")],
":", 1,
trimws(x[2]) function(x){
)} paste0(trimws(x[1])
), )}
collapse="," ),
collapse=", "
), ")"
) )
print(mutations) print(mutations)
@ -286,31 +288,30 @@ server <- function(input, output) {
) %>% ) %>%
addSelection(type="surface", addSelection(type="surface",
param = list(name = "all_mutations", param = list(name = "all_mutations",
color="green", color="red",
sele = "20:A, 22:A, 157:A" sele = mutations
#colorScheme = "bfactor",
#opacity = 1
)
)
NGLVieweR_proxy("af_structure") %>%
updateVisibility("cartoon", FALSE) %>%
addSelection(type="surface",
param = list(name = "all_mutations_surface",
sele = "all",
color="tan",
opacity = 0.2
)
) %>%
addSelection(type="surface",
param = list(name = "all_mutations",
color="red",
sele = mutations
#colorScheme = "bfactor", #colorScheme = "bfactor",
#opacity = 1 #opacity = 1
) )
) )
# addSelection('spacefill',
# param = list(
# name = "Pos",
# sele = "4:A,20:A,22:A,157:A,344:A",
# color = "red",
# opacity=0.1
# )
# )
# NGLVieweR_proxy("af_structure") %>%
# addSelection('ball+stick',
# param = list(
# name = "Pos",
# sele = mutations,
# color = "red",
# opacity=0.1
# )
# )
}) })
} }
# Run the application # Run the application