fix base ellipsoidal height

DICELab-NCSU · Jul 8, 2024 · 1ed4ebb · 1ed4ebb
1 parent 601e868
commit 1ed4ebb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -25,4 +25,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
diff --git a/R/llh_summary.R b/R/llh_summary.R
@@ -42,7 +42,7 @@ llh_summary <- function(llh, rnd = 0, ...) {
   # prepare times for output
   start <- format(start, "%Y-%m-%d %H:%M:%S")
   end <- format(end, "%Y-%m-%d %H:%M:%S")
-  out$time <- data.frame(start = start, end = end, duration = dur)
+  out$time <- data.frame(start = start, end = end, duration = dur, samples = nrow(rawdat))
   return(out)
 }
 

diff --git a/R/update_base.R b/R/update_base.R
@@ -19,7 +19,7 @@ update_base <- function(points, newbase, base_row = NULL,
   newbase <- newbase[base_row, ]
   offsetN <- newbase$Latitude - points$Base.latitude
   offsetE <- newbase$Longitude - points$Base.longitude
-  offsetU <- newbase$`Ellipsoidal height` - points$Ellipsoidal.height
+  offsetU <- newbase$`Ellipsoidal height` - points$Base.ellipsoidal.height
   out <- points
   out$Longitude <- out$Longitude + offsetE
   out$Latitude <- out$Latitude + offsetN