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:57:23 +00:00
parent a0866a136a
commit 3e1465425d
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tb_host/app.R
View file

@ -279,16 +279,16 @@ server <- function(input, output) {
NGLVieweR_proxy("structure") %>% NGLVieweR_proxy("structure") %>%
updateVisibility("cartoon", FALSE) %>% updateVisibility("cartoon", FALSE) %>%
addSelection(type="surface", addSelection(type="cartoon",
param = list(name = "all_mutations_surface", param = list(name = "all_mutations_surface",
sele = "all", sele = "all",
color="tan", color="tan",
opacity = 0.2 opacity = 0.2
) )
) %>% ) %>%
addSelection(type="surface", addSelection(type="spacefill",
param = list(name = "all_mutations", param = list(name = "all_mutations",
color="red", color="orange",
sele = mutations sele = mutations
#colorScheme = "bfactor", #colorScheme = "bfactor",
#opacity = 1 #opacity = 1
@ -296,16 +296,17 @@ server <- function(input, output) {
) )
NGLVieweR_proxy("af_structure") %>% NGLVieweR_proxy("af_structure") %>%
updateVisibility("cartoon", FALSE) %>% updateVisibility("cartoon", FALSE) %>%
addSelection(type="surface", addSelection(type="cartoon",
param = list(name = "all_mutations_surface", param = list(name = "all_mutations_surface",
sele = "all", sele = "all",
color="tan", #color="tan",
colorScheme = "bfactor",
opacity = 0.2 opacity = 0.2
) )
) %>% ) %>%
addSelection(type="surface", addSelection(type="spacefill",
param = list(name = "all_mutations", param = list(name = "all_mutations",
color="red", color="orange",
sele = mutations sele = mutations
#colorScheme = "bfactor", #colorScheme = "bfactor",
#opacity = 1 #opacity = 1