R/nvim.print.R

In jalvesaq/nvimcom: Intermediate the communication between R and either Neovim or Vim

nvim.print <- function(object, objclass)
{
    if(!exists(object))
        stop("object '", object, "' not found")
    if(!missing(objclass) & length(grep(object, names(.knownS3Generics))) > 0){
        for(cls in objclass){
            if(exists(paste(object, ".", objclass, sep = ""))){
                .newobj <- get(paste(object, ".", objclass, sep = ""))
                message(paste0("Note: Printing ", object, ".", objclass))
                break
            }
        }
    }
    if(!exists(".newobj"))
        .newobj <- get(object)
    print(.newobj)
}