elipousson

index_yml <- function(txt = NULL) {
  if (rlang::is_string(txt) && fs::is_file(txt)) {
    txt <- readLines(txt)
  }

  c(2:(which(txt == "---")[2] - 1))
}

read_yml <- function(path, remove = FALSE) {
  txt <- readLines(path)

elipousson

tar_url_read <- function(name,
                         command,
                         read,
                         tidy_eval = targets::tar_option_get("tidy_eval"),
                         packages = targets::tar_option_get("packages"),
                         library = targets::tar_option_get("library"),
                         format = targets::tar_option_get("format"),
                         repository = targets::tar_option_get("repository"),
                         error = targets::tar_option_get("error"),
                         memory = targets::tar_option_get("memory"),

elipousson

library(tidyverse)

salary_url <- "https://services1.arcgis.com/UWYHeuuJISiGmgXx/arcgis/rest/services/EmployeeSalaries_1/FeatureServer/0"

salary_service <- arcgislayers::arc_open(salary_url)

salary_table_src <- arcgislayers::arc_select(salary_service)

# pak::pkg_install("elipousson/baltimoredata")
salary_xwalk <- baltimoredata::entity_xwalk |>

elipousson

library(d2r)

one_many <- c(
  "Agency -> Service",
  "Service -> Cost Center",
  "Fund -> Cost Center",
  "Award -> Grant",
  "Revenue Category -> Budget Plan"
)

elipousson

library(arcgislayers)
library(ggplot2)

county_vac <- arc_read(
  "https://services.arcgis.com/njFNhDsUCentVYJW/arcgis/rest/services/MD_COVID19_VaccinationByCounty/FeatureServer/0"
)

county_vac |> 
  ggplot() +
  geom_sf(

elipousson

library(arcgislayers)
library(tidyverse)

layer <- arc_open(
  "https://geodata.md.gov/imap/rest/services/PlanningCadastre/MD_ComputerAssistedMassAppraisal/MapServer/1"
)


bldg_layer <- arc_open(
  "https://geodata.md.gov/imap/rest/services/PlanningCadastre/MD_ComputerAssistedMassAppraisal/MapServer/0"

elipousson

library(sharepointr)

drive <- get_sp_drive("<document library url>")

drive_files <- sp_dir_info(
  drive = drive
  )

drive_file_paths <- str_remove(drive_files[drive_files$isdir,]$name, "^/")

elipousson

library(tidyverse)
library(gt)
library(sharepointr)

# url <- "https://<tenant>.sharepoint.com/:f:/r/sites/<site name>/<document library>/<path>"

file_list <- sp_dir_info(
  url,
  info = "all",
  recurse = TRUE

elipousson

library(dplyr)
library(rlang)
library(purrr)
# library(d2r)
library(minixcali)

path <- "Untitled-2024-03-28-1327.excalidraw"

file <- xkd_read(path, simplifyVector = TRUE)

elipousson

@prefix owl: <http://www.w3.org/2002/07/owl#> .
@prefix terms: <http://sample-site/politicalgeography/vocabularies/terms#> .
@prefix xsd: <http://www.w3.org/2001/XMLSchema#> .
@prefix sharepoint-taxonomy: <http://aka.ms/sp-taxonomy-syntax/> .

<http://sample-site/politicalgeography/vocabularies/terms> a owl:Ontology .

terms:politicalgeography a sharepoint-taxonomy:TermSet;
  sharepoint-taxonomy:description "A sample term set, describing a simple political geography."@en-us;
  sharepoint-taxonomy:termSetName "Political Geography"@en-us;