diff --git a/R/pins.R b/R/pins.R index ff41aeb..4bb98b5 100644 --- a/R/pins.R +++ b/R/pins.R @@ -36,6 +36,7 @@ mount_board <- function(source = c("local", "remote"), package = "fuimus") { switch( source, local = pins::board_folder( + # system.file("data", "zcta_crosswalk.rda", package = package) fs::path_package("extdata/pins", package = package)), remote = pins::board_url( gh_raw( diff --git a/data-raw/pins_internal.R b/data-raw/pins_internal.R new file mode 100644 index 0000000..d5de1e2 --- /dev/null +++ b/data-raw/pins_internal.R @@ -0,0 +1,23 @@ +pin_update <- function(x, name, title, description) { + + board <- pins::board_folder( + here::here("inst/extdata/pins")) + + board |> + pins::pin_write( + x, + name = name, + title = title, + description = description, + type = "qs") + + board |> pins::write_board_manifest() +} + +delete_pins <- function(pin_names) { + + board <- pins::board_folder( + here::here("inst/extdata/pins")) + + pins::pin_delete(board, names = pin_names) +} diff --git a/data-raw/zipcodedb.R b/data-raw/zipcodedb.R new file mode 100644 index 0000000..03dd23e --- /dev/null +++ b/data-raw/zipcodedb.R @@ -0,0 +1,10 @@ +source(here::here("data-raw", "pins_internal.R")) + +zipcodes <- zipcodeR::zip_code_db + +pin_update( + zipcodes, + name = "zipcodes", + title = "Zip Code Database from zipcodeR package", + description = "https://github.com/MacHu-GWU/uszipcode-project/files/5183256/simple_db.log" +) diff --git a/inst/extdata/pins/_pins.yaml b/inst/extdata/pins/_pins.yaml new file mode 100644 index 0000000..f046685 --- /dev/null +++ b/inst/extdata/pins/_pins.yaml @@ -0,0 +1,2 @@ +zipcodes: +- zipcodes/20241211T045538Z-45cd1/ diff --git a/inst/extdata/pins/zipcodes/20241211T045538Z-45cd1/data.txt b/inst/extdata/pins/zipcodes/20241211T045538Z-45cd1/data.txt new file mode 100644 index 0000000..b1526d6 --- /dev/null +++ b/inst/extdata/pins/zipcodes/20241211T045538Z-45cd1/data.txt @@ -0,0 +1,10 @@ +file: zipcodes.qs +file_size: 3177603 +pin_hash: 45cd18a22eb1a98a +type: qs +title: Zip Code Database from zipcodeR package +description: https://github.com/MacHu-GWU/uszipcode-project/files/5183256/simple_db.log +tags: ~ +urls: ~ +created: 20241211T045538Z +api_version: 1 diff --git a/inst/extdata/pins/zipcodes/20241211T045538Z-45cd1/zipcodes.qs b/inst/extdata/pins/zipcodes/20241211T045538Z-45cd1/zipcodes.qs new file mode 100644 index 0000000..c489450 Binary files /dev/null and b/inst/extdata/pins/zipcodes/20241211T045538Z-45cd1/zipcodes.qs differ