Skip to contents

Downloads and processes school directory data from the Georgia Department of Education Facilities Database. This includes all public schools with principal contact information, addresses, and grade ranges.

Usage

fetch_directory(end_year = NULL, tidy = TRUE, use_cache = TRUE)

Arguments

end_year

Currently unused. The directory data represents the current school year. Included for API consistency with other fetch functions.

tidy

If TRUE (default), returns data in a standardized format with consistent column names. If FALSE, returns raw column names from GaDOE.

use_cache

If TRUE (default), uses locally cached data when available. Set to FALSE to force re-download from GaDOE.

Value

A tibble with school directory data. When tidy = TRUE, columns include:

  • state_district_id: 3-digit district code (e.g., "601")

  • state_school_id: 4-digit school code (e.g., "0103")

  • district_name: District name (e.g., "Appling County")

  • school_name: School name

  • entity_type: "school" (all records are school-level)

  • facility_type: Facility type code (E=Elementary, M=Middle, H=High)

  • grades_served: Grade range (e.g., "09-12", "PK-05")

  • address: Street address

  • city: City

  • state: State (always "GA")

  • zip: ZIP code

  • phone: Phone number

  • county_name: County name (parsed from district name)

  • principal_name: Principal full name

  • principal_title: Principal title (Mr., Mrs., Dr., etc.)

Details

The directory data is downloaded from the GaDOE Facilities Database, which publishes a CSV of all Georgia public schools with current principal information. This data is updated by GaDOE and represents the current state of Georgia public schools.

Note: Superintendent information is not included in this data source. GaDOE does not publish a downloadable superintendent directory.

Examples

if (FALSE) { # \dontrun{
# Get school directory data
dir_data <- fetch_directory()

# Get raw format (original GaDOE column names)
dir_raw <- fetch_directory(tidy = FALSE)

# Force fresh download (ignore cache)
dir_fresh <- fetch_directory(use_cache = FALSE)

# Filter to high schools only
library(dplyr)
high_schools <- dir_data |>
  filter(facility_type == "H")

# Find all schools in Fulton County
fulton_schools <- dir_data |>
  filter(state_district_id == "660")
} # }