# NOT RUN {
r3dmol() %>%
m_add_model(data = m_fetch_pdb("1bna")) %>%
m_zoom_to(sel = m_sel(resi = 1)) %>%
m_add_arrow(
start = m_sel(resi = 1),
end = m_sel(resi = 3),
spec = m_shape_spec(color = "green")
)
# }
Run the code above in your browser using DataLab