https://alaska.usgs.gov/products/data.php?dataid=612: Link for data, I am using the GPS location dataset.

I am running through the amt package vignette on some other GPS tracking data. I have run through the vignette data as well with no issue. I keep getting stuck at the nesting step, something appears to be wrong with how the data is being nested. I am also very stumped because inspecting the structures of the vignette data, and, my data they look the same. Below is the code I am using, and below that is the structure of my data. I have tried using subsets of the data without nesting and seem to have some luck, but the issue seems to be in the amt functions pulling the correct columns.

    #' Load libraries

library(sf)
library(lubridate)
library(raster)
library(move)
library(amt) 
library(tibble)
library(dplyr)


#' ### Load data
polarBear_GPS <- polarBear_GPSLocation_westHudsonBay_2019_2022
View(polarBear_GPS)

ind<-complete.cases(polarBear_GPS[,c("Datetime", "Longitude", "Latitude")])
polarBear_GPS<-polarBear_GPS[ind==TRUE,]

# Remove NA values from Datetime
polarBear_GPS <- polarBear_GPS[!is.na(polarBear_GPS$Datetime), ]

# Check for NA values again, should return 0
sum(is.na(polarBear_GPS$Datetime))  # Should return 0

#' Make timestamp a date/time variable
polarBear_GPS$Datetime <- as.POSIXct(polarBear_GPS$Datetime, format="%m/%d/%Y %H:%M:%S", tz="UTC")


#' We can also use lat, long, which will allow us to determine
#' time of day 
# Create the track
# Create the track with a different CRS
trk1 <- make_track(
  polarBear_GPS,
  .x = Longitude,
  .y = Latitude,
  .t = Datetime,
  id = Bear,
  crs = st_crs(4326)  # WGS 84
)


# Now it is easy to calculate day/night with either movement track
trk1 <- trk1 %>% time_of_day()

#' Now, we can transform back to geographic coordinates
trk1 <- transform_coords(trk1, crs_from = 4326, crs_to =4326 )


#' Or, we can add a columns to each nested column of data using purrr::map
trk2 <- trk1 %>% nest(data = -id)

  trk3 = trk2 %>% mutate(dir_abs = purrr:::map(data, direction_abs,full_circle=TRUE, zero="N"), 
                         dir_rel = purrr:::map(data, direction_rel), 
                         sl = purrr:::map(data, step_lengths),
                         nsd_=purrr:::map(data, nsd))

The error I am getting is after the nesting trying to run the functions on trk2

   str(trk1)
    Classes ‘track_xyt’, ‘track_xy’, ‘spec_tbl_df’, ‘tbl_df’, ‘tbl’ and 'data.frame':   118858 obs. of  5 variables:
 $ x_  : num  -93.2 -93.2 -93.2 -93.2 -93.2 ...
 $ y_  : num  58.8 58.8 58.8 58.8 58.8 ...
 $ t_  : POSIXct, format: "2019-08-26 20:20:11" "2019-08-26 20:25:10" "2019-08-26 20:30:09" ...
 $ id  : chr  "X17517" "X17517" "X17517" "X17517" ...
 $ tod_: Factor w/ 2 levels "day","night": 1 1 1 1 1 1 1 1 1 1 ...
 - attr(*, "spec")=List of 3
  ..$ cols   :List of 4
  .. ..$ Bear     : list()
  .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
  .. ..$ Datetime : list()
  .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
  .. ..$ Latitude : list()
  .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
  .. ..$ Longitude: list()
  .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
  ..$ default: list()
  .. ..- attr(*, "class")= chr [1:2] "collector_guess" "collector"
  ..$ delim  : chr ","
  ..- attr(*, "class")= chr "col_spec"
 - attr(*, "problems")=<externalptr> 
 - attr(*, "crs_")= num 4326


    

 str(trk2)
        nstd_trc [20 × 2] (S3: nested_track/tbl_df/tbl/data.frame)
         $ id  : chr [1:20] "X17517" "X19911" "X33824" "X33939" ...
         $ data:List of 20
          ..$ : trck_xyt [5,435 × 4] (S3: track_xyt/track_xy/spec_tbl_df/tbl_df/tbl/data.frame)
          .. ..$ x_  : num [1:5435] -93.2 -93.2 -93.2 -93.2 -93.2 ...
          .. ..$ y_  : num [1:5435] 58.8 58.8 58.8 58.8 58.8 ...
          .. ..$ t_  : POSIXct[1:5435], format: "2019-08-26 20:20:11" "2019-08-26 20:25:10" "2019-08-26 20:30:09" "2019-08-26 20:35:09" ...
          .. ..$ tod_: Factor w/ 2 levels "day","night": 1 1 1 1 1 1 1 1 1 1 ...
          .. ..- attr(*, "spec")=List of 3
          .. .. ..$ cols   :List of 4
          .. .. .. ..$ Bear     : list()
          .. .. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
          .. .. .. ..$ Datetime : list()
          .. .. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
          .. .. .. ..$ Latitude : list()
          .. .. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
          .. .. .. ..$ Longitude: list()
          .. .. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
          .. .. ..$ default: list()
          .. .. .. ..- attr(*, "class")= chr [1:2] "collector_guess" "collector"
          .. .. ..$ delim  : chr ","
          .. .. ..- attr(*, "class")= chr "col_spec"
          .. ..- attr(*, "problems")=<externalptr> 
          .. ..- attr(*, "crs_")= num 4326

Error code is: Error in mutate():
ℹ In argument: dir_abs = purrr:::map(data, direction_abs, full_circle = TRUE, zero = "N").
Caused by error in purrr:::map():
ℹ In index: 1.
Caused by error in h():
! error in evaluating the argument ‘y’ in selecting a method for function ‘atan2’: argument “y” is missing, with no default