An open API service indexing awesome lists of open source software.

https://github.com/aravind-j/evaluatecore

Quality Evaluation of Core Collections
https://github.com/aravind-j/evaluatecore

core-collections core-evaluation genebank germplasm pgr plant-genetic-resources r

Last synced: 2 months ago
JSON representation

Quality Evaluation of Core Collections

Awesome Lists containing this project

README

        

---
output: rmarkdown::github_document
always_allow_html: true
---

```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "",
fig.path = "inst/extdata/"
)
```

## `EvaluateCore`: Quality Evaluation of Core Collections logo

```{r,echo = FALSE, message = FALSE}
devtools::load_all(".")

```

###### Version : [`r getNamespaceVersion("EvaluateCore")`](https://aravind-j.github.io/EvaluateCore/); Copyright (C) 2018-`r format(Sys.Date(), "%Y")`: [ICAR-NBPGR](http://www.nbpgr.ernet.in/); License: [GPL-2|GPL-3](https://www.r-project.org/Licenses/)

##### *Aravind, J.^1^, Kaur, V.^2^, Wankhede, D. P.^3^ and Nanjundan, J.^4^*

1. Division of Germplasm Conservation, ICAR-National Bureau of Plant Genetic Resources, New Delhi.
2. Division of Germplasm Evaluation, ICAR-National Bureau of Plant Genetic Resources, New Delhi.
3. Division of Genomic Resources, ICAR-National Bureau of Plant Genetic Resources, New Delhi.
4. ICAR-Indian Agricultural Research Institute, Regional Station, Wellington, Tamil Nadu.

***
[![minimal R version](https://img.shields.io/badge/R>%3D-3.5.0-6666ff.svg?logo=R)](https://cran.r-project.org/)
[![License: GPL v3](https://img.shields.io/badge/License-GPL%20v3-blue.svg)](https://www.gnu.org/licenses/gpl-3.0)
[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version-last-release/EvaluateCore)](https://cran.r-project.org/package=EvaluateCore)
[![Dependencies](https://tinyverse.netlify.app/status/EvaluateCore)](https://cran.r-project.org/package=EvaluateCore)
[![rstudio mirror downloads](https://cranlogs.r-pkg.org/badges/grand-total/EvaluateCore?color=green)](https://CRAN.R-project.org/package=EvaluateCore)
```{r, results='asis', echo=FALSE}
dver <- ifelse(test = gsub("(.\\.)(\\d+)(\\..)", "", getNamespaceVersion("EvaluateCore")) != "",
yes = getNamespaceVersion("EvaluateCore"),
no = gsub("Version:\\s*", "", readLines(paste0("https://raw.githubusercontent.com/", "aravind-j/EvaluateCore", "/master/DESCRIPTION"))[grep("Version:", readLines(paste0("https://raw.githubusercontent.com/", "aravind-j/EvaluateCore", "/master/DESCRIPTION")))]))

cat(paste("[![develVersion](https://img.shields.io/badge/devel%20version-", dver, "-orange.svg)](https://github.com/aravind-j/EvaluateCore)", sep = ""))
```
[![Github Code Size](https://img.shields.io/github/languages/code-size/aravind-j/EvaluateCore.svg)](https://github.com/aravind-j/EvaluateCore)
[![R-CMD-check](https://github.com/aravind-j/EvaluateCore/workflows/R-CMD-check/badge.svg)](https://github.com/aravind-j/EvaluateCore/actions)
[![Project Status: WIP](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active)
[![lifecycle](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable)
[![Last-changedate](https://img.shields.io/badge/last%20change-`r gsub('-', '--', Sys.Date())`-yellowgreen.svg)](https://github.com/aravind-j/EvaluateCore/)
[![Zenodo DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.3875930.svg)](https://doi.org/10.5281/zenodo.3875930)
[![Website - pkgdown](https://img.shields.io/website-up-down-green-red/https/aravind-j.github.io/EvaluateCore.svg)](https://aravind-j.github.io/EvaluateCore/)
[![.](https://pro-pulsar-193905.appspot.com/UA-148941781-1/welcome-page)](https://github.com/aravind-j/google-analytics-beacon)

***

## Description
`r gsub("()", "[doi:\\2](https://doi.org/\\2)", gsub("\\n", " ", packageDescription("EvaluateCore", fields = "Description")))`

## Installation
The package can be installed from CRAN as follows:

```{r, eval=FALSE}
# Install from CRAN
install.packages('EvaluateCore', dependencies=TRUE)
```

The development version can be installed from github as follows:

```{r, eval=FALSE}
# Install development version from Github
devtools::install_github("aravind-j/EvaluateCore")
```

## What's new
To know whats new in this version type:

```{r, eval=FALSE}
news(package='EvaluateCore')
```

## Links

[CRAN page](https://cran.r-project.org/package=EvaluateCore)

[Github page](https://github.com/aravind-j/EvaluateCore)

[Documentation website](https://aravind-j.github.io/EvaluateCore/)

[Zenodo DOI](https://doi.org/10.5281/zenodo.3875930)

## CRAN checks

```{r, echo = FALSE}
pkgname <- "EvaluateCore"

osdf <-
rbind(data.frame(OS = "Linux",
Flavour = c("r-devel-linux-x86_64-debian-clang",
"r-devel-linux-x86_64-debian-gcc",
"r-devel-linux-x86_64-fedora-clang",
"r-devel-linux-x86_64-fedora-gcc",
"r-patched-linux-x86_64",
"r-release-linux-x86_64")),
# data.frame(OS = "Solaris",
# Flavour = c("r-patched-solaris-x86")),
data.frame(OS = "Windows",
Flavour = c("r-devel-windows-x86_64",
"r-release-windows-x86_64",
"r-oldrel-windows-x86_64")),
data.frame(OS = "macOS",
Flavour = c("r-release-macos-x86_64",
# "r-release-macos-arm64",
# "r-oldrel-macos-arm64",
"r-oldrel-macos-x86_64")))

chkurl <- paste("https://cran.r-project.org/web/checks/check_results_",
pkgname, ".html", sep = "")
library(RCurl)

if (url.exists(chkurl)) {
chklink <- paste("(", chkurl, ")", sep = "")
} else {
chklink <- "(https://cran.r-project.org/web/checks/check_results_j.aravind_at_icar.gov.in.html)"
}

osdf$`CRAN check` <- paste("[![CRAN check - ", osdf$Flavour, "]",
"(https://badges.cranchecks.info/flavor/",
osdf$Flavour, "/", pkgname, ".svg)]",
chklink,
sep = "")
```

```{r, echo = FALSE, results='asis'}
cat("\n",
"[![Linux](https://img.shields.io/badge/Linux-FCC624?style=for-the-badge&logo=linux&logoColor=black)](https://cran.r-project.org/web/checks/check_results_EvaluateCore.html)", "\n")

# knitr::kable(osdf[osdf$OS == "Linux", c(2, 3)], format = "simple",
# col.names = c("", ""),
# row.names = FALSE)

pander::pandoc.table(osdf[osdf$OS == "Linux", c(2, 3)], split.tables = Inf,
row.names = FALSE, justify = "ll", style = "grid")

cat("\n",
"[![Windows](https://img.shields.io/badge/Windows-0078D6?style=for-the-badge&logo=windows&logoColor=white)](https://cran.r-project.org/web/checks/check_results_EvaluateCore.html)", "\n")

# knitr::kable(osdf[osdf$OS == "Windows", c(2, 3)], format = "simple",
# col.names = c("", ""),
# row.names = FALSE)

pander::pandoc.table(osdf[osdf$OS == "Windows", c(2, 3)], split.tables = Inf,
row.names = FALSE, justify = "ll", style = "grid")

cat("\n",
"[![MacOS](https://img.shields.io/badge/mac%20os-000000?style=for-the-badge&logo=apple&logoColor=white)](https://cran.r-project.org/web/checks/check_results_EvaluateCore.html)", "\n")

# knitr::kable(osdf[osdf$OS == "macOS", c(2, 3)], format = "simple",
# col.names = c("", ""),
# row.names = FALSE)

pander::pandoc.table(osdf[osdf$OS == "macOS", c(2, 3)], split.tables = Inf,
row.names = FALSE, justify = "ll", style = "grid")

cat("\n")
```

```{r, echo = FALSE, results='asis', eval = FALSE}
library(kableExtra, warn.conflicts = FALSE)

kosdf <- kbl(osdf[, c("Flavour", "CRAN check")], row.names = FALSE,
format = "simple")

kosdf2 <- kable_styling(kosdf, bootstrap_options = c("striped", "hover"),
full_width = F, position = "left")

# os_index <- c(6, 1, 3, 2)
os_index <- c(6, 3, 2)

names(os_index) <- c(paste("[![Linux](https://shields.io/badge/Linux--9cf?logo=Linux&style=social)]",
chklink, sep = ""),
# paste("[![Solaris](https://shields.io/badge/Solaris--9cf?logo=Oracle&style=social)]",
# chklink, sep = ""),
paste("[![Windows](https://shields.io/badge/Windows--9cf?logo=Windows&style=social)]",
chklink, sep = ""),
paste("[![MacOS](https://shields.io/badge/MacOS--9cf?logo=Apple&style=social)]",
chklink, sep = ""))

pack_rows(kosdf2, index = os_index)

```

## Citing `EvaluateCore`
To cite the methods in the package use:

```{r, eval = FALSE}
citation("EvaluateCore")
```

```{r, echo = FALSE}
detach("package:EvaluateCore", unload = TRUE)
suppressPackageStartupMessages(library(EvaluateCore))
cit <- citation("EvaluateCore")
# yr <- format(Sys.Date(), "%Y")
# cit[1]$year <- yr
# oc <- class(cit)
#
# cit <- unclass(cit)
# attr(cit[[1]],"textVersion") <- gsub("\\(\\)",
# paste("\\(", yr, "\\)", sep = ""),
# attr(cit[[1]],"textVersion"))
# class(cit) <- oc
cit
```