https://github.com/mojaveazure/ggseurat

Methods to allow Seurat objects to be visualized with ggplot2
https://github.com/mojaveazure/ggseurat

Last synced: 23 days ago
JSON representation

Methods to allow Seurat objects to be visualized with ggplot2

• Host: GitHub
• URL: https://github.com/mojaveazure/ggseurat
• Owner: mojaveazure
• License: other
• Created: 2019-11-20T00:34:11.000Z (almost 5 years ago)
• Default Branch: master
• Last Pushed: 2022-10-19T18:28:33.000Z (about 2 years ago)
• Last Synced: 2024-01-23T23:42:08.418Z (10 months ago)
• Language: R
• Homepage: https://mojaveazure.github.io/ggseurat
• Size: 752 KB
• Stars: 4
• Watchers: 4
• Forks: 0
• Open Issues: 1
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Awesome Lists containing this project

README

        
---

output: github_document

---

```{r, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

  fig.path = "man/figures/README-",

  out.width = "100%"

)

```

```{r gh.url, echo=FALSE}

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))

}

```

```{r cran.cannoncial, echo=FALSE}

cran.cannoncial <- "https://cran.r-project.org/package="

```

```{r parse.description, echo=FALSE}

description <- read.dcf(file = "DESCRIPTION")

# Get package name

pkg <- as.vector(x = description[, "Package"])

# Get GitHub URL

github.url <- ghurl(x = description[, "URL"])

# Get depedencies

deps <- as.vector(x = description[, c("Depends", "Imports")])

deps <- unlist(x = strsplit(x = deps, split = "\n"))

deps <- vapply(

  X = deps,

  FUN = function(x) {

    return(unlist(x = strsplit(x = x, split = "(", fixed = TRUE))[1])

  },

  FUN.VALUE = character(length = 1L),

  USE.NAMES = FALSE

)

deps <- trimws(x = deps)

deps <- gsub(pattern = ",$", replacement = "", x = deps)

deps <- deps[deps != "R"]

```

```{r parse.version, echo=FALSE}

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]

```

# `r pkg` 

[![Lifecycle](https://img.shields.io/badge/lifecycle-`r stage`-`r color`.svg)](`r github.url`)

![Questioning](https://img.shields.io/badge/lifecycle-questioning-informational)

[![CRAN/METACRAN](https://img.shields.io/cran/v/`r pkg`)](`r paste0(cran.cannoncial, pkg)`)

#### `r description[1, "Title"]`

```{r description, echo=FALSE, results='asis'}

cat(gsub(pattern = '\n', replacement = ' ', x = description[, "Description"]))

```

## Installation

You can install `r pkg` from GitHub with:

```{r devel_install, echo=FALSE, results="asis"}

github.base <- unlist(x = strsplit(x = github.url, split = "/"))

github.base <- paste(rev(x = rev(x = github.base)[1:2]), collapse = "/")

cat(

  "```r",

  "if (!requireNamespace('remotes', quietly = TRUE) {",

  "  install.packages('remotes')",

  "}",

  paste0("remotes::install_github('", github.base,"')"),

  "```",

  sep = "\n"

)

```