glue::glue('<script type="application/ld+json"> {glue::glue_collapse(readLines("inst/schemaorg.json"), sep = "\n")} </script>')
knitr::opts_chunk$set( collapse = TRUE, comment = "", fig.path = "inst/extdata/" )
ammistability
: Additive Main Effects and Multiplicative Interaction Model Stability Parameters devtools::load_all(".")
r getNamespaceVersion("ammistability")
; Copyright (C) 2017-r format(Sys.Date(), "%Y")
: ICAR-DGR; License: GPL-2|GPL-3dver <- ifelse(test = gsub("(.\\.)(\\d+)(\\..)", "", getNamespaceVersion("ammistability")) != "", yes = getNamespaceVersion("ammistability"), no = gsub("Version:\\s*", "", readLines(paste0("https://raw.githubusercontent.com/", "ajaygpb/ammistability", "/master/DESCRIPTION"))[grep("Version:", readLines(paste0("https://raw.githubusercontent.com/", "ajaygpb/ammistability", "/master/DESCRIPTION")))])) cat(paste("[![develVersion](https://img.shields.io/badge/devel%20version-", dver, "-orange.svg)](https://github.com/ajaygpb/ammistability)", sep = ""))
r gsub("\\n", " ", packageDescription("ammistability", fields = "Description"))
The package can be installed from CRAN as follows:
# Install from CRAN install.packages('ammistability', dependencies=TRUE)
The development version can be installed from github as follows:
# Install development version from Github devtools::install_github("ajaygpb/ammistability")
For a detailed tutorial (vignette) on how to used this package type:
browseVignettes(package = 'ammistability')
The vignette for the latest version is also available online.
To know whats new in this version type:
news(package='ammistability')
pkgname <- "ammistability" 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 = "")
cat("[![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_ammistability.html)", "\n") knitr::kable(osdf[osdf$OS == "Linux", c(2, 3)], format = "simple", col.names = c("", ""), row.names = FALSE) cat("[![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_ammistability.html)", "\n") knitr::kable(osdf[osdf$OS == "Windows", c(2, 3)], format = "simple", col.names = c("", ""), row.names = FALSE) cat("[![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_ammistability.html)", "\n") knitr::kable(osdf[osdf$OS == "macOS", c(2, 3)], format = "simple", col.names = c("", ""), row.names = FALSE) cat("\n")
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)
ammistability
To cite the methods in the package use:
citation("ammistability")
# detach("package:ammistability", unload=TRUE) suppressPackageStartupMessages(library(ammistability)) cit <- citation("ammistability") # 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.