From 964b558913de7f7b6ef9915fc9cc41fc0b3dd0d3 Mon Sep 17 00:00:00 2001
From: rafnuss <rafnuss@gmail.com>
Date: Wed, 29 Jun 2022 17:12:51 +0200
Subject: [PATCH] fix of flight duration computation in geopressureviz

---
 inst/geopressureviz/server.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/inst/geopressureviz/server.R b/inst/geopressureviz/server.R
index a7cff189..d10260d9 100644
--- a/inst/geopressureviz/server.R
+++ b/inst/geopressureviz/server.R
@@ -13,7 +13,7 @@ server <- function(input, output, session) {
     flight_duration <- c()
     for (i_f in seq_len(max(0, length(idx_sta_short) - 1))) {
       from_idx_sta_short <- idx_sta_short[i_f]
-      to_idx_sta_short <- idx_sta_short[i_f + 1]
+      to_idx_sta_short <- idx_sta_short[i_f + 1] - 1
 
       flight_duration[i_f] <- sum(
         do.call(rbind, lapply(
@@ -74,7 +74,7 @@ server <- function(input, output, session) {
       HTML(
         "<b>Previous flight:</b><br>",
         as.numeric(input$i_sta) - idx_sta_prev, " flights -",
-        round(fl_dur[i - 1]), " hrs<br>",
+        round(fl_dur[i - 1], 1), " hrs<br>",
         round(dist), " km - ",
         round(dist / fl_dur[i - 1]), "km/h"
       )
@@ -97,7 +97,7 @@ server <- function(input, output, session) {
       HTML(
         "<b>Next flight:</b><br>",
         idx_sta_next - as.numeric(input$i_sta), " flights -",
-        round(sum(fl_dur[i])), " hrs<br>",
+        round(sum(fl_dur[i]), 1), " hrs<br>",
         round(dist), " km - ",
         round(dist / fl_dur[i]), "km/h"
       )