Remove all labels from viewer
m_remove_all_labels(id)
R3dmol id
or a r3dmol
object (the output from
r3dmol()
)
id R3dmol id
or a r3dmol
object (the output from
r3dmol()
)
library(r3dmol)
mol <- r3dmol() %>%
m_add_model(data = "data-raw/Conformer3D_CID_5291.sdf", format = "sdf") %>%
m_set_style(style = m_style_stick(radius = 2)) %>%
m_zoom_to() %>%
m_add_property_labels(
prop = "index",
sel = list(not = list(elem = "H")),
style = m_style_label(
fontColor = "black",
font = "sans-serif",
fontSize = 28,
showBackground = FALSE,
alignment = "center"
)
)
# Render model with labels
mol
# Remove all labels
mol %>%
m_remove_all_labels()