https://github.com/mojaveazure/tinyexpect

https://github.com/mojaveazure/tinyexpect

Last synced: 23 days ago
JSON representation

• Host: GitHub
• URL: https://github.com/mojaveazure/tinyexpect
• Owner: mojaveazure
• License: other
• Created: 2024-05-29T20:08:23.000Z (5 months ago)
• Default Branch: master
• Last Pushed: 2024-07-25T17:21:34.000Z (3 months ago)
• Last Synced: 2024-07-25T23:14:38.032Z (3 months ago)
• Language: R
• Homepage:
• Size: 57.6 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"])

github.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"])

```

```{r testthat-equivalency, echo=FALSE, results="asis", eval=FALSE}

rd <- tools::parse_Rd(file = "man/tinyexpect-package.Rd")

tools::Rd2HTML(Rd = rd, stages = "build")

```

## 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"

)

```