mschmidty

const { dest, src, series, watch, parallel } = require('gulp');

const sass = require('gulp-sass')(require('sass'));
const rename = require('gulp-rename');
const autoprefixer = require('autoprefixer')
const sourcemaps = require('gulp-sourcemaps')
const postcss = require('gulp-postcss')
const cssnano = require('cssnano');

const babel = require('gulp-babel');

mschmidty

FedData github page

Makesure to download the development version. In the CRAN version downloading get_nlcd() is broken.

devtools::install_github("ropensci/FedData")

library(FedData)
library(tigris) ## to get county level data 

mschmidty

// Place your key bindings in this file to override the defaults
[
    
    {
        "key": "ctrl+alt+i",
        "command": "editor.action.insertSnippet",
        "when": "editorTextFocus",
        "args": {
            "snippet": "```{r}\n$0\n```",
        }

mschmidty

RODBC Connection

In order to connect to this connection you must be on a BLM computer.

To create an ODBC connection, on a Windows computer connected to a BLM network or VPN network, in the search bar search "ODBC Data Sources (32-bit)" in the windows search bar.

When the window opens:

• Click "Add".
• Select "SQL Server" and click "Finish".
• Enter a name (this can be whatever you want) "COsde"
• Enter a description "COsde"

mschmidty

"Header for .qmd" : {
		"scope": "quarto, qmd",
		"prefix": "qmdtomd",
		"body" : [
			"---",
			"title: ${0}",
			"date:",
			"tags: [ ]",
			"format:",
			"\tcommonmark:",

mschmidty

library(sf)
library(arcgislayers)

con <- arc_open("https://gis.blm.gov/nlsdb/rest/services/Fluid_Minerals/Oil_Gas_Leases_Production_Status/MapServer/0")

ccng_bd <- st_read("T:\\FS\\NFS\\PSO\\MPSG\\2024_CimarronComancheNG\\1_PreAssessment\\Data\\Shapefiles\\CimarronComancheNG_AdminBdy.shp") |>
  st_transform(con$sourceSpatialReference$wkid)

ccng_data <- arc_select(con, filter_geom = st_bbox(ccng_bd), page_size = 200)

mschmidty

library(cli)
library(yaml)

# Function to prompt user for input with an optional default value using readline()
ask_question <- function(question, default = NULL) {
  if (!is.null(default)) {
    prompt <- paste0(question, " (default: ", default, "): ")
  } else {
    prompt <- paste0(question, ": ")
  }

mschmidty

library(terra)
library(tidyterra)
library(tidyverse)
library(sf)
library(terrainr)
library(osmdata)
library(classInt)

## The Ranch
## -111.481533,44.281219,-111.383171,44.367674

mschmidty

library(dplyr)

df <- tibble(
  apple = 1:3,
  banana = c("x", "foo", "z"),
  cherry = 4:6
)

test_cc <- function(x, col) {
  filter(x, {{ col }} == "foo")