dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

add test storm queries

Browse Source
This commit is contained in:
dylan
2025-06-15 13:24:42 -04:00
parent b569180dd5
commit d026f6bc71
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
queries.R
+10 -1
View File
@@ -43,6 +43,15 @@ metrics.pop_and_housing <- tbl(con, I("metrics.pop_and_housing"))
public.counties <- tbl(con, I("public.counties")) public.counties <- tbl(con, I("public.counties"))
# test storm
test_storm <- list(
storm_basin = "AL",
storm_year = 2005,
storm_name = "KATRINA",
lf_type = "LF",
lf_id = 1
)
# helper functions # helper functions
# splits full_lf_id into lf_type and lf_id # splits full_lf_id into lf_type and lf_id
@@ -229,7 +238,7 @@ get_hurdat_landfalls <- function(storm) {
} }
# returns storm track from HURDAT # returns storm track from HURDAT
get_hurdat_track <- function(storm) { get_hurdat_track <- function(storm, con = con, hurdat.best_track = hurdat.best_track) {
#Sys.sleep(5) #Sys.sleep(5)
query <- hurdat.best_track %>% query <- hurdat.best_track %>%