# NOT RUN {
library(r3dmol)
mol <- r3dmol() %>%
m_add_model(data = pdb_6zsl, format = "pdb") %>%
m_add_sphere(spec = list(
center = list(x = 0, y = 0, z = 0),
radius = 10.0,
color = "red"
))
# Render model with shape
mol
# Remove shape
mol %>%
m_remove_all_shapes()
# }
Run the code above in your browser using DataLab