# NOT RUN {
library(r3dmol)
# }
# NOT RUN {
r3dmol() %>%
m_add_model(data = m_fetch_pdb("1bna")) %>%
m_add_sphere(
center = m_sel(resi = 1),
spec = m_shape_spec(color = "green", wireframe = TRUE)
) %>%
m_zoom_to(sel = m_sel(resi = 1))
# }
Run the code above in your browser using DataLab