getPhyInfo <- function(phy) {
line1 <- readLines(phy, n=1)
res <- strsplit(line1, split="\\s")[[1]]
res <- res[res != ""]
return(list(num=as.numeric(res[1]), width=as.numeric(res[2])))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.