remove tabset for map and move map data to separate column

queries.R

@@ -295,7 +295,28 @@ get_hurdat_track <- function(storm) {
       rmw_meters
     )
   
-  result <- query %>% collect()
+  result <- query %>% 
+    collect() %>%
+    mutate(
+      formatted_datetime = paste0(
+        format(datetime, "%m/%d/%Y"),
+        " ",
+        format(datetime, "%H"),
+        "Z"
+      )
+    ) %>%
+    select(
+      formatted_datetime,
+      datetime,
+      storm_status,
+      lon,
+      lat,
+      rmw,
+      pressure, 
+      windspeed,
+      record_identifier,
+      rmw_meters
+    )
   
   return(result)
 }