Check and download NBM data • cori.data.fcc

library(cori.data.fcc)

This example shows a basic workflow:

First, you can inspect what releases are available:

release <- get_nbm_release() # get the available releases
release

##   filing_type_id filing_type    filing_subtype
## 1         100018    Biannual December 31, 2024
## 2         100055    Biannual     June 30, 2025
## 3         100058    Biannual December 31, 2025
## 4         100015    Biannual     June 30, 2024
##                           process_uuid enable_bfm_link
## 1 057df9ac-5625-4e30-900f-3df00757d9fd            TRUE
## 2 7b3bfe22-ec03-4686-ace4-60def8208111            TRUE
## 3 16495d87-e2f6-49a8-96db-e50394a743e2            TRUE
## 4 cc56c227-49dd-4b9a-ad74-8da5f3653787            TRUE
##   enable_challenge_download
## 1                      TRUE
## 2                      TRUE
## 3                      TRUE
## 4                      TRUE

Second, you can check what files are available:

nbm <- get_nbm_available() # get what data is available

# if we are interested in  "Fixed Broadband" / "Nationwide" / released "June 30, 2023"
nbm_filter <- nbm[which(nbm$release == "June 30, 2023" &
                        nbm$data_type == "Fixed Broadband" &
                        nbm$data_category == "Nationwide"), ]
rownames(nbm_filter) <- NULL


# or
nbm_dplyr_filter <- nbm |> dplyr::filter(release == "June 30, 2023" &
                                         data_type == "Fixed Broadband" &
                                         data_category == "Nationwide")

all.equal(nbm_filter, nbm_dplyr_filter)

## [1] TRUE

#> [1] TRUE
head(nbm_filter)

## [1] id              release         data_type       technology_code
## [5] state_fips      provider_id     file_name       file_type      
## [9] data_category  
## <0 rows> (or 0-length row.names)