Add files via upload

cmerikson · Sep 7, 2023 · 4b521fe · 4b521fe
1 parent 13df946
commit 4b521fe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Transport Shiny.R b/Transport Shiny.R
@@ -158,7 +158,7 @@ server <- function(input, output) {
  }
  distance(Movement)
 
- Transport = Transport[,TotalDistance:=rowSums(Transport[,2:16],na.rm=T)]
+ Transport = Transport[,TotalDistance:=(do.call(pmax,c(Transport[,-1],na.rm=T)))]
 
  transport_data(Transport)