R/logo.R

In RobinHankin/schwarzschild: General Relativity in R

`logo` <- function(...){
    image <- getOption("schwarzschild_logo")
    if(is.null(image)){ image <- "primary-logo.eps.xml" }
  
#    image                                  %>%
#        system.file(package="schwarzschild") %>%
#        readPicture                          %>%
#        grid.picture(...)

    grid.picture(readPicture(system.file(image,package="schwarzschild")),...)
}

`git` <- function(x,y,...){
    text(x,y,'https://github.com/RobinHankin/schwarzschild.git',pos=4,cex=0.6,family="mono", ...)
}