nanxstats

desc <- tempfile()
curl::curl_download("https://cran.r-project.org/web/packages/tidyverse/DESCRIPTION", destfile = desc)
deps <- desc::desc_get_deps(desc)
pkgs <- deps[deps$type %in% c("Imports"), "package"]
urls <- paste0("https://cloud.r-project.org/web/packages/", pkgs, "/news/news.html")
html <- vector("list", length(urls))
for (i in seq_along(urls)) html[[i]] <- rawToChar(curl::curl_fetch_memory(urls[i])$content)
markdown <- vector("list", length(urls))
for (i in seq_along(urls)) markdown[[i]] <- paste0(pandoc::pandoc_convert(text = html[[i]], from = "html", to = "markdown"), collapse = "\n")
markdown <- markdown[-which(sapply(markdown, grepl, pattern = "# Not Found"))]

nanxstats

1. Fork the repo and clone the repo to local.
2. Remove all existing tests and GitHub Action workflows.
3. Add Yihui's example as a test. Wrap the last step n - 454 in an expect_indetical() call and set the comparison to condition to 0.
4. Run rhub::rhub_setup() to add the R-hub v2 workflow.
5. Add, commit, and push the above changes.
6. Run rhub::rhub_check() to run R-hub checks and select options to run the workflow. You might be prompted to set up a GitHub PAT locally and need to do that.

nanxstats

nanxstats

# Use `rlang::eval_tidy()` safely

```{r setup, include=FALSE}
knitr::opts_chunk$set(comment = "#>", collapse = TRUE, error = TRUE)
```

`rlang::eval_tidy()` is a powerful tool that allows you to evaluate R code
within a specific environment, often a data frame or a list.
However, if used carelessly with user input, it can introduce
security vulnerabilities.

nanxstats

library(reticulate)

# Ignore this ----

use_python("/opt/homebrew/bin/python3.10")

# reticulate works ----

sdv <- import("sdv")

nanxstats

#' Create a release checklist without requiring context
#'
#' @param package Package name.
#' @param version Release version number.
#' @param on_cran Is the package already on CRAN? Default is `TRUE`.
#' @param has_news Does the package use `NEWS.md`? Default is `TRUE`.
#' @param has_readme Does the package use `README.Rmd`? Default is `FALSE`.
#' @param has_lifecycle Does the package use lifecycle? Default is `FALSE`.
#'
#' @return Release checklist in Markdown format (invisibly).

nanxstats

library("shiny")
library("ggplot2")

# Container max widths from Bootstrap 5
max_width <- c(540, 720, 960, 1140, 1320)

# Output image height scaling factors
height_scale <- c(6, 3, 3, 1.5, 1, 1)

# Given plot width, find the grid interval index while considering page columns

nanxstats

brew install fontforge
brew install woff2

curl -L http://mirrors.ctan.org/fonts/mlmodern.zip > mlmodern.zip

unzip mlmodern.zip

cd mlmodern/type1/

fontforge -lang=ff -c 'Open($1); Generate($1:r + ".otf")' mlmr12.pfb

nanxstats

# Add custom error messages to specific errors in R
error_handler <- function() {
  rlang::entrace()
  e <- rlang::last_error()$message
  if (grepl("there is no package called", x = e)) {
    message("* This can be a custom error message with multiple lines.")
  }
}

if ("rlang" %in% rownames(installed.packages())) {

nanxstats

#' Flatten copy
#'
#' @param from Source directory path.
#' @param to Destination directory path.
#'
#' @return Destination directory path.
#'
#' @details
#' Copy all `.Rmd`, `.qmd`, and `.md` files from source to destination,
#' rename the `.qmd` and `.md` files with an additional `.Rmd` extension,