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
}, {
gene = input$gene
mutations = paste0(
apply(
unique_missense_genes[unique_missense_genes$gene_name == gene,c("position","chain")],
1,
function(x){
paste0(trimws(x[1]),
":",
trimws(x[2])
)}
),
collapse=","
mutations = paste0(":",
as.matrix(unique_missense_genes[unique_missense_genes$gene_name == gene,c("chain")])[1],
" and (",
paste0(
apply(
unique_missense_genes[unique_missense_genes$gene_name == gene,c("position","chain")],
1,
function(x){
paste0(trimws(x[1])
)}
),
collapse=", "
), ")"
)
print(mutations)
@ -286,31 +288,30 @@ server <- function(input, output) {
) %>%
addSelection(type="surface",
param = list(name = "all_mutations",
color="green",
sele = "20:A, 22:A, 157:A"
color="red",
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",
#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