Hiroaki Yutani yutannihilation

1. List up non-APIs

$ Rscript -e 'cat(tools:::nonAPI, sep = "\n")' | sort -u > nonAPI.txt
$ cat nonAPI.txt
AllDevicesKilled
Brent_fmin
OutDec
PRIMOFFSET
RC_fopen

issue 3451: scale_manual throws unexpected error when na.values given and insufficient values provided

The case 1 and 2 of the following did not work at that time. But, then insufficient values are allowed now. So, none of the following errors now.

df <- data.frame(x = 1, y = 1:3, z = factor(c("a","b", NA), exclude = NULL))
p <- qplot(x, y, data = df, colour = z)

library(tidyverse)
library(patchwork)

excel_file <- tempfile(fileext = ".xlsx")
curl::curl_download("https://www.fukushihoken.metro.tokyo.lg.jp/iryo/kansen/kensa/kensuu.files/syousaisenryakukensa.xlsx", excel_file)

d_raw <- readxl::read_excel(excel_file, skip = 2)
d_raw
#> # A tibble: 18 × 4

(Draft) extendr's conversion specs and semantics

Scope of this document

To implement a Rust function for R with extendr, users can choose to use either (or both) of the following:

Rust types (e.g. i32, and &str)
Proxy types (e.g. Integer, and Character)

For Rust types, we need to consider how to handle the case where the types are incompatible between R and Rust.

c.f. https://github.com/coolbutuseless/fugly#simple-benchmark

library(ore)
library(unglue)
library(ggplot2)

# meaningless strings for benchmarking
string <- paste0("Information name:greg age:", 1:1000)

	library(ggplot2)
	library(patchwork)
	library(dplyr, warn.conflicts = FALSE)

	d <- string2path::string2path("R", "Arial")

	max_dist <- 0.003

	d2 <- d \|>
	group_by(glyph_id, path_id) \|>

	library(ggplot2)


	f <- systemfonts::system_fonts() \|>
	dplyr::filter(family == "Iosevka", style == "Heavy") \|>
	dplyr::pull(path)

	d_pkg <- string2path::string2fill("arrow", f[1], tolerance = 0.01) \|>
	dplyr::mutate(
	fill = as.integer(triangle_id + 50 * runif(dplyr::n()))

	library(ggplot2)
	library(string2path)
	library(dplyr, warn.conflicts = FALSE)
	library(gganimate)

	f <- systemfonts::system_fonts()

	# This is reproducible but only on my laptop, sorry for my laziness...
	set.seed(100)
	some_fonts <- sample(f$path[tools::file_ext(f$path) %in% c("ttf", "otf")], 30)

	library(string2path)
	library(ggplot2)

	d <- string2path("?", "/usr/share/fonts/truetype/roboto/unhinted/RobotoTTF/Roboto-BoldItalic.ttf")


	f <- function(d, theta) {
	d <- dplyr::mutate(d, x = x + 0.02 * cos(theta * 3.2), y = y + 0.02 * sin(theta * 2.1))

	d2 <- dplyr::bind_rows(

	deps <- pkgdepends::new_pkg_installation_proposal(".", config = list(sysreqs = TRUE, sysreqs_lookup_system = FALSE))
	deps$solve()
	any(vapply(deps$get_sysreqs(), \(x) "cargo" %in% names(x), logical(1L)))