https://github.com/mojaveazure/mamisc

https://github.com/mojaveazure/mamisc

Last synced: 18 days ago
JSON representation

• Host: GitHub
• URL: https://github.com/mojaveazure/mamisc
• Owner: mojaveazure
• License: other
• Created: 2022-12-08T17:18:12.000Z (about 2 years ago)
• Default Branch: master
• Last Pushed: 2022-12-15T20:56:01.000Z (about 2 years ago)
• Last Synced: 2024-10-15T09:11:17.370Z (2 months ago)
• Language: R
• Homepage: https://mojaveazure.github.io/mamisc
• Size: 34.2 KB
• Stars: 0
• Watchers: 2
• Forks: 0
• Open Issues: 0
• 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, include=FALSE}

ghurl <- function(x) {

  x <- trimws(x = unlist(x = strsplit(x = x, split = ",")))

  x <- grep(pattern = "https://github.com", x = x, value = TRUE)[1]

  return(unname(obj = x))

}

```

```{r parse_desc, include=FALSE}

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

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

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

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 <- switch(

  EXPR = stage,

  "stable" = "green",

  "maturing" = "blue",

  "experimental" = "orange"

)

```

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

[![CRAN Version](https://www.r-pkg.org/badges/version/`r pkg`)](https://cran.r-project.org/package=`r pkg`)

[![R-universe status badge](https://mojaveazure.r-universe.dev/badges/`r pkg`)](https://mojaveazure.r-universe.dev)

# `r pkg` v`r pkg.version`

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

---

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

cat(description[1, "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 <- github.base[(length(x = github.base) - 1):length(x = github.base)]

github.base <- paste(github.base, collapse = "/")

cat(

  "```r",

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

  "  install.packages('remotes')",

  "}",

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

  "```",

  sep = "\n"

)

```