gps_lat_lon_to_LINESTRING | R Documentation |
Convert the GPS, TCX data to a LINESTRING
gps_lat_lon_to_LINESTRING( dat_gps_tcx, CRS = 4326, verbose = FALSE, time_split_asc_desc = NULL )
dat_gps_tcx |
this parameter corresponds to the output data.table of the 'GPS_TCX_data()' function |
CRS |
an integer specifying the Coordinates Reference System. The recommended value for this data is 4326 (which is also the default value) |
verbose |
a boolean. If TRUE then information will be printed out in the console |
time_split_asc_desc |
if NULL then the maximum altitude coordinates point will be used as a split point of the route, otherwise the user can give a lubridate 'hours-minutes-seconds' object such as: lubridate::hms('17:05:00') |
Separate the Ascending and Descending coordinate points into 2 groups and give a different color to the Ascending and Descending routes
an object of class list
## Not run: require(fitbitViz) #............................ # first extract the log-id(s) #............................ USER_ID = '99xxxx' token = 'my_long_web_api_token' log_id = extract_LOG_ID(user_id = USER_ID, token = token, after_Date = '2021-03-13', limit = 10, sort = 'asc', verbose = TRUE) str(log_id) #................................... # then return the gps-ctx data.table #................................... res_tcx = GPS_TCX_data(log_id = log_id, user_id = USER_ID, token = token, time_zone = 'Europe/Athens', verbose = TRUE) str(res_tcx) #.................................................................. # By using using the maximum altitude as a split point of the route #.................................................................. linestring_dat_init = gps_lat_lon_to_LINESTRING(dat_gps_tcx = res_tcx, CRS = 4326, time_split_asc_desc = NULL, verbose = TRUE) #................................................................. # By using a customized split of the route (ascending, descending) #................................................................. linestring_dat_lubr = gps_lat_lon_to_LINESTRING(dat_gps_tcx = res_tcx, CRS = 4326, time_split_asc_desc = lubridate::hms('17:05:00'), verbose = TRUE) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.