yutannihilation

GIS 関連でこれまでやったこと

執筆

出版物

• Rによる地理空間データ解析入門（Chris Brunsdon 他、共立出版 2018）: 翻訳（共訳）、および付録の執筆（内容が古かったため、最新のパッケージでの処理方法を解説）

ブログ

yutannihilation

library(string2path)
library(ggplot2)
library(dplyr)

# Note: it seems Noto Color Emoji has many variants. Only that of COLRv1 format
# is supported, so this might not work on installed font of Noto Color Emoji.
ttf <- "~/../Downloads/Noto_Color_Emoji/NotoColorEmoji-Regular.ttf"

d <- string2fill("👮", ttf)
d2 <- string2path("👮", ttf)

yutannihilation

library(string2path)
library(ggplot2)
library(dplyr)

# Note: it seems Noto Color Emoji has many variants. Only that of COLRv1 format
# is supported, so this might not work on installed font of Noto Color Emoji.
ttf <- "~/../Downloads/Noto_Color_Emoji/NotoColorEmoji-Regular.ttf"

d <- string2fill("🐯", ttf)
d2 <- string2path("🐯", ttf)

yutannihilation

Syntax

EOL : '\n' | ';'

Program :
   Statement*

yutannihilation

    Checking stdext v0.1.0 (C:\Users\Yutani\Documents\GitHub\ark\crates\stdext)
warning: very complex type used. Consider factoring parts into `type` definitions
  --> crates\stdext\src\event.rs:16:16
   |
16 |     listeners: Mutex<HashMap<i32, Box<dyn Fn(&T) + Send>>>,
   |                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   |
   = help: for further information visit https://rust-lang.github.io/rust-clippy/master/index.html#type_complexity
   = note: `#[warn(clippy::type_complexity)]` on by default

yutannihilation

library(ggplot2)
library(grid)

size <- unit(70, "points")
x_orig <- unit(0.5, "npc")
y_orig <- unit(0.5, "npc")

gp1 <- gpar(col = "white", fill = "#CEF09D", lwd = 3.3)
gp2 <- gpar(col = "white", fill = "#1C646D", lwd = 3.3)

yutannihilation

library(grid)

rect <- function(size, rot_deg) {
  theta <- (c(1 / 4, 3 / 4, 5 / 4, 7 / 4) - rot_deg / 360) * pi
  rectGrob(x = size * sqrt(2) * sin(theta),
           y = size * sqrt(2) * cos(theta))
}

size <- unit(100, "points")
x_orig <- unit(0.5, "npc")

yutannihilation

#| dev: ragg_png

library(grid)
library(ggplot2)

# gpar everywhere to rule out an "invisible lines" issue
gp <- gpar(col = "black", fill = "transparent", lwd = 2, lty = "solid")

mm_rel <- function(...) {
  unit(0.5, "npc") + unit((base::c(...) - 0.5) * 10, "mm")

yutannihilation

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)))

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