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