knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
ghurl <- function(x) { x <- unlist(x = strsplit(x = x, split = ',')) x <- trimws(x = x) x <- grep(pattern = "https://github.com", x = x, value = TRUE)[1] return(unname(obj = x)) }
cran.cannoncial <- "https://cran.r-project.org/package="
description <- read.dcf(file = "DESCRIPTION") # Get package name pkg <- as.vector(x = description[, "Package"]) # Get GitHub URL github.url <- ghurl(x = description[, "URL"]) # Parse version pkg.version <- package_version(x = description[1, 'Version']) stage <- if (pkg.version >= package_version(x = "1.0.0")) { "stable" } else if (pkg.version >= package_version(x = "0.1.0")) { "maturing" } else { "experimental" } color <- c("experimental" = "orange", "maturing" = "blue", "stable" = "brightgreen")[stage]
cat(gsub(pattern = '\n', replacement = ' ', x = description[, "Description"]))
r pkg
is available on CRAN
install.packages("SeuratObject")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.