correct

maeveupton · Feb 14, 2024 · fa5c4a7 · fa5c4a7
1 parent c95cdb9
commit fa5c4a7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/internal_functions.R b/R/internal_functions.R
@@ -273,7 +273,6 @@ clean_tidal_gauge_data <- function(data,
   utils::unzip(temp_file, exdir = temp_dir)
 
 
-
   ### ------------Loop to open all RSL & Age data files------------
   read_plus <- function(flnm) {
     # fread quicker way to read in & allows for ; to be used
@@ -464,10 +463,13 @@ clean_tidal_gauge_data <- function(data,
     unique() %>%
     as.data.frame()
   SL_tide_unique <- SL_tide_site_df %>%
-    dplyr::select(SiteName, Longitude, Latitude, data_type_id, n_obs_by_site) %>%
+    dplyr::select(SiteName, Longitude, Latitude, data_type_id,
+                  n_obs_by_site,
+                  LongLat) %>%
     unique() %>%
     as.data.frame()
 
+
   #---Distance Matrix for each site to each other---
   mat.distance <- geosphere::distm(SL_proxy_unique[, 2:3], SL_tide_unique[, 2:3])
   mat.distance_m <- as.matrix(mat.distance)

diff --git a/R/reslr_load.R b/R/reslr_load.R
@@ -94,6 +94,7 @@ reslr_load <- function(data,
     # }
     # else{
     data <- data %>% dplyr::mutate(data_type_id = "ProxyRecord")
+
     data <- clean_tidal_gauge_data(
       data = data,
       list_preferred_TGs = list_preferred_TGs,