# NOT RUN {
library(r3dmol)
# }
# NOT RUN {
r3dmol() %>%
m_add_model(data = m_fetch_pdb("1bna")) %>%
m_add_style(
style = m_style_stick(),
sel = m_sel(resi = 1:2)
) %>%
m_zoom_to(sel = m_sel(resi = 1))
# Expand example
r3dmol() %>%
m_add_model(data = m_fetch_pdb("1bna")) %>%
m_add_style(
style = m_style_stick(),
sel = m_sel(
resi = 1,
expand = 10,
byres = TRUE
)
) %>%
m_zoom_to(sel = m_sel(resi = 1))
# }
Run the code above in your browser using DataLab