Nothing
basename.pdb <- function(x, mk4=FALSE, ext=".pdb") {
##
##- Extract PDB basename/identifier from filenames
## like "basename()" for PDB files
## E.g.:
## basename.pdb("/somedir/somewhere/1bg2_myfile.pdb")
## Will give: 1bg2_myfile
## basename.pdb("/somedir/somewhere/1bg2_myfile.pdb", TRUE)
## Will give: 1bg2
y <- sub(paste0("\\", ext, "$"),"", basename(x))
if(mk4) { y <- substr(y,1,4) }
names(y) <- x
return(y)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.