# NOT RUN {
library(r3dmol)
# Add style to model
r3dmol() %>%
m_add_model(data = pdb_1j72, format = "pdb") %>%
m_add_style(style = m_style_cartoon()) %>%
m_zoom_to()
# Set style to model
r3dmol() %>%
m_add_model(data = pdb_6zsl, format = "pdb") %>%
m_set_style(style = m_style_cartoon()) %>%
m_set_style(
sel = m_sel(chain = "A"),
style = m_style_stick(
radius = 0.5,
colorScheme = "magentaCarbon"
)
) %>%
m_zoom_to()
# }
Run the code above in your browser using DataLab