Hiroaki Yutani yutannihilation

DuckDB v1.2.2 で増えた spatial extension の関数

DuckDB v1.2.1 の関数を書き出す。

INSTALL spatial;

LOAD spatial;

COPY (

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

EOL : '\n' | ';'

Program :
   Statement*

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<title>Add a simple custom layer on a globe</title>
	<meta property="og:description" content="Use a custom layer to draw simple WebGL content on a globe." />
	<meta charset='utf-8'>
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<link rel='stylesheet' href='https://unpkg.com/[email protected]/dist/maplibre-gl.css' />
	<script src='https://unpkg.com/[email protected]/dist/maplibre-gl.js'></script>
	<style>

	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)

	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)

	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

	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)

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

	#\| 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")