Description Usage Arguments Value See Also Examples
Update color of an existing NGLVieweR selection in Shinymode.
1 | updateColor(NGLVieweR_proxy, name, color)
|
NGLVieweR_proxy |
A NGLVieweR object. |
name |
Name of selection to alter the color. |
color |
Can be a colorValue (color name or HEX code) or colorScheme (e.g. "element", "resname", "random" or "residueindex"). For a full list of options, see the "Colormaker" section in the official NGL.js manual. |
API call containing NGLVieweR
id
and list of message parameters.
NGLVieweR_example()
See example "updateColor".
Other updates:
updateRepresentation()
,
updateStage()
,
updateVisibility()
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | ## Not run:
NGLVieweR_proxy("structure") %>%
updateColor("cartoon", "red")
## End(Not run)
if (interactive()) {
library(shiny)
ui <- fluidPage(
titlePanel("Viewer with API inputs"),
sidebarLayout(
sidebarPanel(
colourInput("color", "red", "red"),
actionButton("update", "Update"),
),
mainPanel(
NGLVieweROutput("structure")
)
)
)
server <- function(input, output) {
output$structure <- renderNGLVieweR({
NGLVieweR("7CID") %>%
addRepresentation("cartoon",
param = list(name = "cartoon", color = "residueindex")
)
})
observeEvent(input$update, {
NGLVieweR_proxy("structure") %>%
updateColor("cartoon", isolate(input$color))
})
}
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.