The goal of hafvog is to read in the hafvogs json files into R
You can install the development version of hafvog from GitHub with:
# install.packages("devtools")
remotes::install_github("einarhjorleifsson/hafvog")With {hafvog} you can read in the content of the hafvog zip files via:
library(hafvog)
zip_path <- system.file("zips", "A3-2024.zip", package = "hafvog")
tmpfile <- tempfile()
download.file("ftp://ftp.hafro.is/pub/data/A7-2024.zip", destfile = tmpfile)
zip_path <- c(zip_path, tmpfile)
d <- hv_read_hafvog(zip_path, collapse_station = TRUE)
names(d)
#> [1] "stodvar" "skraning" "leidangrar" "drasl_skraning"
d$stodvar |>
dplyr::left_join(d$skraning) |>
dplyr::glimpse()
#> Joining with `by = join_by(.file, synis_id)`
#> Rows: 21,415
#> Columns: 67
#> $ .file <chr> "A3-2024.zip", "A3-2024.zip", "A3-2024.zip", "A3…
#> $ synis_id <int> 8742, 8742, 8742, 8742, 8742, 8742, 8742, 8742, …
#> $ leidangur <chr> "A3-2024", "A3-2024", "A3-2024", "A3-2024", "A3-…
#> $ skip <int> 2350, 2350, 2350, 2350, 2350, 2350, 2350, 2350, …
#> $ dags <date> 2024-02-29, 2024-02-29, 2024-02-29, 2024-02-29,…
#> $ reitur <int> 475, 475, 475, 475, 475, 475, 475, 475, 475, 475…
#> $ smareitur <int> 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, …
#> $ kastad_v_lengd <dbl> 25.998, 25.998, 25.998, 25.998, 25.998, 25.998, …
#> $ kastad_n_breidd <dbl> 64.53483, 64.53483, 64.53483, 64.53483, 64.53483…
#> $ hift_v_lengd <dbl> 25.999, 25.999, 25.999, 25.999, 25.999, 25.999, …
#> $ hift_n_breidd <dbl> 64.60117, 64.60117, 64.60117, 64.60117, 64.60117…
#> $ dypi_kastad <dbl> 207, 207, 207, 207, 207, 207, 207, 207, 207, 207…
#> $ dypi_hift <dbl> 209, 209, 209, 209, 209, 209, 209, 209, 209, 209…
#> $ stod <int> 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, …
#> $ tog_aths <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ synaflokkur <int> 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, …
#> $ fishing_gear_no <int> 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, …
#> $ grandaralengd <dbl> 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, …
#> $ veidarfaeri_id <chr> "5", "5", "5", "5", "5", "5", "5", "5", "5", "5"…
#> $ landsyni <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
#> $ maelingarmenn <chr> "Ásgeir og Lína, Anna Ragnheiður og Hjalti, Sæun…
#> $ undirstod_heiti <chr> "Varpa", "Varpa", "Varpa", "Varpa", "Varpa", "Va…
#> $ medferd_afla <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
#> $ device_id <int> 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, …
#> $ net_nr <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
#> $ hnattstada <int> -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, …
#> $ togbyrjun <dttm> 2024-02-29 02:22:00, 2024-02-29 02:22:00, 2024-…
#> $ togendir <dttm> 2024-02-29 03:24:00, 2024-02-29 03:24:00, 2024-…
#> $ togtimi <dbl> 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, …
#> $ toghradi <dbl> 3.9, 3.9, 3.9, 3.9, 3.9, 3.9, 3.9, 3.9, 3.9, 3.9…
#> $ toglengd <dbl> 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, …
#> $ tognumer <dbl> 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, …
#> $ togstefna <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
#> $ lodrett_opnun <dbl> 2.3, 2.3, 2.3, 2.3, 2.3, 2.3, 2.3, 2.3, 2.3, 2.3…
#> $ larett_opnun <dbl> 83.4, 83.4, 83.4, 83.4, 83.4, 83.4, 83.4, 83.4, …
#> $ vir_uti <int> 250, 250, 250, 250, 250, 250, 250, 250, 250, 250…
#> $ dregid_fra <chr> "A", "A", "A", "A", "A", "A", "A", "A", "A", "A"…
#> $ togdypi_hift <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ togdypi_kastad <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ togdypishiti <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ yfirbordshiti <dbl> 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6…
#> $ botnhiti <dbl> 5.9, 5.9, 5.9, 5.9, 5.9, 5.9, 5.9, 5.9, 5.9, 5.9…
#> $ lofthiti <dbl> -0.1, -0.1, -0.1, -0.1, -0.1, -0.1, -0.1, -0.1, …
#> $ vindhradi <int> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
#> $ loftvog <int> 981, 981, 981, 981, 981, 981, 981, 981, 981, 981…
#> $ sky <int> 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, …
#> $ sjor <int> 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, …
#> $ vedur <int> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, …
#> $ vindatt <int> 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, …
#> $ maeliadgerd <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
#> $ tegund <int> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, …
#> $ lengd <dbl> 39, 37, 41, 35, 38, 39, 37, 40, 38, 42, 39, 35, …
#> $ fjoldi <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
#> $ kyn <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ kynthroski <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ kvarnanr <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ nr <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 1…
#> $ oslaegt <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ slaegt <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ magaastand <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ lifur <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ kynfaeri <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ tegund_as_faedutegund <int> 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, …
#> $ radnr <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 1…
#> $ ranfiskurteg <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ heildarthyngd <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ valkvorn <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
d |>
hv_create_tables() |>
names()
#> [1] "ST" "M" "NU" "LE" "KV" "pred" "prey"