This guide explains how to:
- Install
uv - Create a project with
pyproject.toml - Use a project-local
.venv - Add dependencies to the project
- Sync the environment
- Register the environment as a Jupyter kernel
library(dplyr, warn.conflicts = FALSE)
library(tidyr)
library(wrds)
#> ── Checking WRDS credentials ───────────────────────────────────── wrds 0.0.1 ──
#> ✔ Credentials found for user iangow
library(farr, warn.conflicts = FALSE)
db <- wrds_connect()library(readxl)
library(httr2)
library(tidyverse)
# Define file URL and destination path
url <- "https://www.jobsandskills.gov.au/sites/default/files/2024-12/occupation_profiles_data_-_november_2024.xlsx"
destfile <- "occupation_profiles_data.xlsx"
# Create request with headers| libname home '.'; | |
| PROC SQL; | |
| CREATE TABLE crsp_dates AS | |
| SELECT date, intnx('MONTH', date, 0, 'BEGINNING') AS month format=yymmdd10. | |
| FROM crsp.msi | |
| ORDER BY date; | |
| QUIT; | |
| DATA crsp_dates; |
| libname home '.'; | |
| PROC SQL; | |
| CREATE TABLE crsp_dates AS | |
| SELECT date, intnx('MONTH', date, 0, 'BEGINNING') AS month format=yymmdd10. | |
| FROM crsp.msi | |
| ORDER BY date; | |
| QUIT; | |
| DATA crsp_dates; |
| library(farr) | |
| library(tidyverse) | |
| original <- read_csv("~/Downloads/WalkerDataCodeMar2021/original.csv") | |
| original |> | |
| group_by(fyear) |> | |
| summarize(auc = auc(prob, aaer), .groups = "drop") |> | |
| mutate(avg_auc = mean(auc)) |
| install.packages(c("formatR", "markdown", "tinytex", "downlit", "xml2")) |
| library(dplyr, warn.conflicts = FALSE) | |
| library(DBI) | |
| db <- dbConnect(duckdb::duckdb()) | |
| dbExecute(db, "ATTACH '' AS pg (TYPE POSTGRES);") | |
| dbExecute(db, "COPY pg.crsp.dsf FROM '/Users/iangow/Library/CloudStorage/Dropbox/pq_data/crsp/dsf.parquet'") | |
| create_view <- function(conn, table, schema = "", |
| library(httr2) # request(), req_*(), resp_body_html() | |
| library(rvest) # html_elements(), html_table() | |
| library(tidyverse) | |
| extract_team_ids <- function(link_text) { | |
| matches <- str_match(link_text, '<a href="teams/(.*)_idx.html">(.*)</a>') | |
| team_id <- matches[, 2] | |
| team_name <- matches[, 3] | |
| tibble(team_id, team_name) | |
| } |