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         100011    Biannual December 31, 2023
## 2         100018    Biannual December 31, 2024
## 3         100015    Biannual     June 30, 2024
## 4         100055    Biannual     June 30, 2025
##                           process_uuid enable_bfm_link
## 1 8033e241-2ab4-4ff6-812e-1efb049fe87f            TRUE
## 2 f7f93a5e-0088-4010-897e-982725369f4e            TRUE
## 3 cf58c704-0c76-40fa-845a-f0138ddded0c            TRUE
## 4 987851a7-3c62-416f-8bdd-9058e9ca762f            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)