daranzolin’s gists

daranzolin / cbd_areas.R

Created December 20, 2024 17:20

Gist to calculate the areas of SF CBDs, commercial land use, and total parcel area

	library(sf)
	library(mapview)
	library(tidyverse)
	library(measurements)
	library(units)
	library(glue)

	# Dissolve and summarize CBD parcel areas
	cbd_parcels <- st_read("data/cbd_parcels.shp")
	cbds_area <- cbd_parcels %>%

daranzolin / sql_window.R

Created June 7, 2024 19:01

	suppressPackageStartupMessages(library(duckdb))
	suppressWarnings(suppressPackageStartupMessages(library(tidyverse)))
	con <- dbConnect(duckdb())
	set.seed(1)
	df <- tibble(
	id = sample(1:5, 10, replace = TRUE),
	x = sample(LETTERS[1:4], 10, replace = TRUE)
	)
	duckdb_register(con, "df", df, overwrite = TRUE)
	q <- "select * from(

daranzolin / sqlWizardGadget

Created December 19, 2023 20:08

Shiny Gadget to load SQL Queries (ugly and not totally working)

	library(shiny)
	library(miniUI)

	ui <- miniPage(
	gadgetTitleBar("Import SQL Query"),
	miniTabstripPanel(
	selected = "Input",
	# --- UI - Tab - Input ----
	miniTabPanel(
	"Input",

daranzolin / child.qmd

Created February 9, 2023 00:15


	```{r}
	path <- fs::path("mtcars", ext = "csv")
	cmd <- paste0("{{< downloadthis ", "'", path, "'", ' dname=Mtcars label="Download the mtcars data" icon=database-fill-down type=info class=data-button id=mtcars >}}')
	```

	```{r}
	#\| results: asis
	cat(cmd)
	```

daranzolin / downloadthis-reprex.qmd

Last active January 24, 2023 20:37

	---
	title: "downloadthis reprex"
	format: html
	include-after-body: button.html
	---

	# Head1

	<br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br>

daranzolin / ggirl test

Created September 27, 2022 15:41

daranzolin / display_raster_attribute_table.py

Created February 17, 2022 00:36

Display a raster's 'attribute' table w/arcpy

	import pandas as pd
	def display_raster_attribute_table(ras):
	if ras.hasRAT:
	flds = [fld.name for fld in arcpy.ListFields(ras)]
	table = []
	cur = arcpy.SearchCursor(ras, flds)
	for row in cur:
	rowList = [row.getValue(fld) for fld in flds]
	table.append(rowList)
	del cur

daranzolin / geom_heart.r

Created February 16, 2021 23:23 — forked from EmilHvitfeldt/geom_heart.r

geom that uses hearts instead of points.

	geom_heart <- function (mapping = NULL, data = NULL, stat = "identity", position = "identity",
	..., parse = FALSE, nudge_x = 0, nudge_y = 0, check_overlap = FALSE,
	na.rm = FALSE, show.legend = NA, inherit.aes = TRUE)
	{
	if (!missing(nudge_x) \|\| !missing(nudge_y)) {
	if (!missing(position)) {
	stop("Specify either `position` or `nudge_x`/`nudge_y`",
	call. = FALSE)
	}
	position <- position_nudge(nudge_x, nudge_y)

daranzolin / database-funcs.R

Created April 22, 2020 21:51

	#' Connect to the data mart
	#'
	#' You must set three variables in your .Renviron: 'DATAMART_DSN', 'DATAMART_ID', and 'DATAMART_PW'.
	#' @export
	#' @examples
	#'\dontrun{
	#'irdb <- connect_to_datamart()
	#'}
	connect_to_datamart <- function() {
	DBI::dbConnect(odbc::odbc(),

daranzolin / ptxts.csv

Created February 29, 2020 06:02

David Ranzolin daranzolin