# NOT RUN {
library(r3dmol)
m1 <- r3dmol() %>%
m_add_model(data = pdb_6zsl, format = "pdb") %>%
m_zoom_to()
m2 <- m1 %>%
m_set_style(style = m_style_cartoon(color = "spectrum"))
m3 <- m1 %>%
m_set_style(style = m_style_stick())
m4 <- m1 %>%
m_set_style(style = m_style_sphere())
m_grid(
viewer = list(m1, m2, m3, m4),
control_all = TRUE,
viewer_config = m_viewer_spec(
backgroundColor = "black"
)
)
# }
Run the code above in your browser using DataLab