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