# NOT RUN {
library(r3dmol)
# write/read demo structure as {bio3d} object
tmp <- tempfile()
write(pdb_6zsl, tmp)
pdb <- bio3d::read.pdb(tmp)
# quickly preview structure
pdb %>%
m_glimpse()
# preview structure, highlighting particular region.
pdb %>%
m_glimpse(m_sel(resi = 1:10, chain = "A"), spin = 0.2)
# }
# NOT RUN {
# Fetch given PDB string and quickly preview structure
"4ozs" %>%
m_glimpse(spin = TRUE)
# }
Run the code above in your browser using DataLab