From b132e6d43ecfe016d24a71f7cbb497d238342aad Mon Sep 17 00:00:00 2001 From: Quarto GHA Workflow Runner Date: Thu, 7 Mar 2024 21:54:15 +0000 Subject: [PATCH] Built site for gh-pages --- .nojekyll | 2 +- fcc_funding.html | 42 +++++++++++++++++++++++++++++++-- isp_eda.html | 60 ++++++++++++++++++++++++------------------------ ntia_test.html | 4 ++-- search.json | 2 +- sitemap.xml | 18 +++++++-------- zero_dl_up.html | 12 +++++----- 7 files changed, 89 insertions(+), 51 deletions(-) diff --git a/.nojekyll b/.nojekyll index 12aa921..b6bd79f 100644 --- a/.nojekyll +++ b/.nojekyll @@ -1 +1 @@ -ab4f9596 \ No newline at end of file +b6b5bb19 \ No newline at end of file diff --git a/fcc_funding.html b/fcc_funding.html index c57fac4..d40827a 100644 --- a/fcc_funding.html +++ b/fcc_funding.html @@ -363,8 +363,46 @@

List table_with_options(fcc_all_dat)
-
- +
+ +
+
+Code +
# ls > path/to/list_file_fcc_feb2024.txt
+fcc_files <- readLines("data/list_file_fcc_feb2024.txt")
+# remove zip
+fcc_files_slim <- fcc_files[!grepl(".zip", fcc_files)]
+
+fcc_files_tidy <- as.data.frame(
+                                do.call(rbind, 
+                                        strsplit(fcc_files_slim, "_"))
+)
+# remove programdata, but it is nice to see for every files 
+fcc_files_tidy <- fcc_files_tidy[fcc_files_tidy[["V1"]] != "programdata",]
+
+fcc_files_tidy[["program_id"]] <- gsub("program", "", fcc_files_tidy[["V2"]])
+
+fcc_files_tidy[["is_area"]] <- grepl("area", fcc_files_tidy[["V1"]])
+# works for now but will breack if I have the third type of project
+fcc_files_tidy[["type_proj"]] <- ifelse(fcc_files_tidy[["is_area"]], "area", "location")
+
+type_proj_temp <- sapply(split(fcc_files_tidy[["type_proj"]], 
+             fcc_files_tidy[["program_id"]]), 
+             unique)
+
+type_proj <- data.frame(
+  program_id = names(type_proj_temp),
+  type_proj  = type_proj_temp 
+)
+
+fcc_all_dat <- merge(fcc_all_dat, type_proj,
+      by.x = "program_id", by.y = "program_id", 
+      all.x = TRUE, all.y = TRUE)
+table_with_options(fcc_all_dat)
+
+
+
+
diff --git a/isp_eda.html b/isp_eda.html index fcf2f86..2596351 100644 --- a/isp_eda.html +++ b/isp_eda.html @@ -324,8 +324,8 @@

EDA on ISP

table_with_options(isp[order(isp$cnt_services,decreasing = TRUE),])
-
- +
+
@@ -358,8 +358,8 @@

table_with_options(isp_agg[order(isp_agg$cnt_services, decreasing = TRUE), ])
-
- +
+

I have done a smaller .csv just with brand_name provider_id and cnt_services just to inspect what is the relation between them (1 to 1 / 1 to many). Outside of typos we should not have many to many relation.

@@ -387,8 +387,8 @@

TCT

table_with_options(isp_list[grepl("^TCT ", isp_list$brand_name) ,])
-
- +
+
Code @@ -422,8 +422,8 @@

Windstream

table_with_options(isp_list[grepl("Windstream", isp_list$brand_name) ,])
-
- +
+
Code @@ -440,8 +440,8 @@

Acentek/Acentek

table_with_options(isp_list[isp_list$provider_id == 130008,])
-
- +
+
Code @@ -458,8 +458,8 @@

Mediacom - Bolt

table_with_options(isp_list[grepl("Mediacom|Bolt", isp_list$brand_name) ,])
-
- +
+
Code @@ -476,8 +476,8 @@

Comporium

table_with_options(isp_list[isp_list$provider_id == 131125,])
-
- +
+
Code @@ -494,8 +494,8 @@

Armstrong

table_with_options(isp_list[isp_list$provider_id == 130071,])
-
- +
+
Code @@ -512,8 +512,8 @@

TEC

table_with_options(isp_list[isp_list$provider_id == 131311,])
-
- +
+
Code @@ -529,8 +529,8 @@

PUD

table_with_options(isp_list[isp_list$provider_id == 290075,])
-
- +
+
Code @@ -548,8 +548,8 @@

GoNetspeed?

table_with_options(isp_list[isp_list$provider_id == 131378,])
-
- +
+
@@ -561,8 +561,8 @@

MHTC

table_with_options(isp_list[isp_list$provider_id == 130862,])
-
- +
+
Code @@ -579,8 +579,8 @@

Hardy

table_with_options(isp_list[isp_list$provider_id == 130588,])
-
- +
+
Code @@ -597,8 +597,8 @@

OmniTel

table_with_options(isp_list[isp_list$provider_id == 130484,])
-
- +
+
Code @@ -614,8 +614,8 @@

Hamilton

table_with_options(isp_list[isp_list$provider_id == 130887,])
-
- +
+
Code diff --git a/ntia_test.html b/ntia_test.html index 98a5ea3..5a20897 100644 --- a/ntia_test.html +++ b/ntia_test.html @@ -353,8 +353,8 @@

Excluding DSL servic table_with_options(easy_table)

-
- +
+
diff --git a/search.json b/search.json index fd624ad..cd21a2f 100644 --- a/search.json +++ b/search.json @@ -299,7 +299,7 @@ "href": "fcc_funding.html#list-of-dataset-avalaible-07-03-2024", "title": "FCC Funding Map", "section": "List of dataset avalaible: 07-03-2024", - "text": "List of dataset avalaible: 07-03-2024\n\n\nCode\nagency_name <- \"Federal Communications Commission\"\nprogram_name <- c(\"Bringing Puerto Rico Together\",\n \"Connect America Fund Phase II\",\n \"Connect USVI\", \n \"Enhanced Alternative Connect America Cost Model\",\n \"Rural Digital Opportunity Fund\")\nprogram_id <- c(\"25\", \"28\", \"26\", \"35\", \"24\")\nfcc_dat <- data.frame(agency_name = rep(agency_name, length(program_name)),\n program_name,\n program_id \n )\nagency_name <- \"NTIA\"\nprogram_name <- c(\n \"Broadband Infrastructure Program\",\n \"Tribal Broadband Connectivity Program NOFO 1\"\n)\nprogram_id <- c(\"11\", \"27\")\nntia_dat <- data.frame(agency_name = rep(agency_name, length(program_name)), \n program_name,\n program_id \n )\nagency_name <- \"Rural Utilities Service\"\nprogram_name <- c(\n \"COMMUNITY CONNECT GRANT PROGRAM\",\n \"RURAL ECONNECTIVITY PROGRAM\",\n \"TELEPHONE LOAN PROGRAM\"\n)\nprogram_id <- c(\"10\", \"6\", \"12\")\nrural_dat <- data.frame(agency_name = rep(agency_name, length(program_name)), \n program_name,\n program_id \n )\nagency_name <- \"US Department of Treasury\"\nprogram_name <- c(\n \"Capital Projects Fund\",\n \"State and Local Fiscal Recovery Fund\"\n)\nprogram_id <- c(\"18\", \"19\")\nusdt_dat <- data.frame(agency_name = rep(agency_name, length(program_name)), \n program_name,\n program_id \n )\n\nfcc_all_dat <- rbind(fcc_dat, ntia_dat, rural_dat, usdt_dat )\ntable_with_options(fcc_all_dat)", + "text": "List of dataset avalaible: 07-03-2024\n\n\nCode\nagency_name <- \"Federal Communications Commission\"\nprogram_name <- c(\"Bringing Puerto Rico Together\",\n \"Connect America Fund Phase II\",\n \"Connect USVI\", \n \"Enhanced Alternative Connect America Cost Model\",\n \"Rural Digital Opportunity Fund\")\nprogram_id <- c(\"25\", \"28\", \"26\", \"35\", \"24\")\nfcc_dat <- data.frame(agency_name = rep(agency_name, length(program_name)),\n program_name,\n program_id \n )\nagency_name <- \"NTIA\"\nprogram_name <- c(\n \"Broadband Infrastructure Program\",\n \"Tribal Broadband Connectivity Program NOFO 1\"\n)\nprogram_id <- c(\"11\", \"27\")\nntia_dat <- data.frame(agency_name = rep(agency_name, length(program_name)), \n program_name,\n program_id \n )\nagency_name <- \"Rural Utilities Service\"\nprogram_name <- c(\n \"COMMUNITY CONNECT GRANT PROGRAM\",\n \"RURAL ECONNECTIVITY PROGRAM\",\n \"TELEPHONE LOAN PROGRAM\"\n)\nprogram_id <- c(\"10\", \"6\", \"12\")\nrural_dat <- data.frame(agency_name = rep(agency_name, length(program_name)), \n program_name,\n program_id \n )\nagency_name <- \"US Department of Treasury\"\nprogram_name <- c(\n \"Capital Projects Fund\",\n \"State and Local Fiscal Recovery Fund\"\n)\nprogram_id <- c(\"18\", \"19\")\nusdt_dat <- data.frame(agency_name = rep(agency_name, length(program_name)), \n program_name,\n program_id \n )\n\nfcc_all_dat <- rbind(fcc_dat, ntia_dat, rural_dat, usdt_dat )\ntable_with_options(fcc_all_dat)\n\n\n\n\n\n\nCode\n# ls > path/to/list_file_fcc_feb2024.txt\nfcc_files <- readLines(\"data/list_file_fcc_feb2024.txt\")\n# remove zip\nfcc_files_slim <- fcc_files[!grepl(\".zip\", fcc_files)]\n\nfcc_files_tidy <- as.data.frame(\n do.call(rbind, \n strsplit(fcc_files_slim, \"_\"))\n)\n# remove programdata, but it is nice to see for every files \nfcc_files_tidy <- fcc_files_tidy[fcc_files_tidy[[\"V1\"]] != \"programdata\",]\n\nfcc_files_tidy[[\"program_id\"]] <- gsub(\"program\", \"\", fcc_files_tidy[[\"V2\"]])\n\nfcc_files_tidy[[\"is_area\"]] <- grepl(\"area\", fcc_files_tidy[[\"V1\"]])\n# works for now but will breack if I have the third type of project\nfcc_files_tidy[[\"type_proj\"]] <- ifelse(fcc_files_tidy[[\"is_area\"]], \"area\", \"location\")\n\ntype_proj_temp <- sapply(split(fcc_files_tidy[[\"type_proj\"]], \n fcc_files_tidy[[\"program_id\"]]), \n unique)\n\ntype_proj <- data.frame(\n program_id = names(type_proj_temp),\n type_proj = type_proj_temp \n)\n\nfcc_all_dat <- merge(fcc_all_dat, type_proj,\n by.x = \"program_id\", by.y = \"program_id\", \n all.x = TRUE, all.y = TRUE)\ntable_with_options(fcc_all_dat)", "crumbs": [ "Home", "EDA", diff --git a/sitemap.xml b/sitemap.xml index be0bd74..d74a6f2 100644 --- a/sitemap.xml +++ b/sitemap.xml @@ -2,38 +2,38 @@ https://ruralinnovation.github.io/proj-fcc-report/about.html - 2024-03-07T16:41:20.434Z + 2024-03-07T21:52:33.168Z https://ruralinnovation.github.io/proj-fcc-report/ms-eda.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/zero_dl_up.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/rdof.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/road-eda.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/isp_eda.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/ntia_test.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/fcc_funding.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z https://ruralinnovation.github.io/proj-fcc-report/index.html - 2024-03-07T16:41:20.446Z + 2024-03-07T21:52:33.176Z diff --git a/zero_dl_up.html b/zero_dl_up.html index f2d45f9..e7d24e4 100644 --- a/zero_dl_up.html +++ b/zero_dl_up.html @@ -346,8 +346,8 @@

Summary by technol table_with_options(technology)
-
- +
+


@@ -379,8 +379,8 @@

Summary by ISP

order(rate_zero$cnt_zero_dl, decreasing = TRUE),])
-
- +
+
@@ -422,8 +422,8 @@

Sumamry by States

table_with_options(st_agg[order(st_agg$rate_zero, decreasing = TRUE), ])
-
- +
+


One point of concern is that services with 0/0 speeds could be generated for various reasons. One could be that some technology offer very low downloads/uploads and that is rounding to 0 an other could be that the location is not actually deserved but the ISP think it can do it.