}
-elements. Example:
+\link[xml2:oldclass]{xml2::xml_document} similar to \code{\link[=osm_get_gpx_metadata]{osm_get_gpx_metadata()}}. Example:
\if{html}{\out{}}\preformatted{
@@ -41,7 +40,7 @@ traces
\seealso{
Other get GPS' functions:
\code{\link{osm_get_data_gpx}()},
-\code{\link{osm_get_metadata_gpx}()},
+\code{\link{osm_get_gpx_metadata}()},
\code{\link{osm_get_points_gps}()}
}
\concept{get GPS' functions}
diff --git a/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3458743/details.xml b/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3458743/details.xml
new file mode 100644
index 0000000..0018e44
--- /dev/null
+++ b/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3458743/details.xml
@@ -0,0 +1,8 @@
+
+
+
+ Puiggiró
+ explorant
+ Cingles de Bertí
+
+
diff --git a/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3790367/details.xml b/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3790367/details.xml
index 6b91fbe..a71aa4b 100644
--- a/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3790367/details.xml
+++ b/tests/testthat/mock_get_metadata_gpx/osm.org/api/0.6/gpx/3790367/details.xml
@@ -1,6 +1,6 @@
-
+
Airoto Marimanha Oriental
camp
a
diff --git a/tests/testthat/mock_list_gpxs/osm.org/api/0.6/user/gpx_files.xml b/tests/testthat/mock_list_gpxs/osm.org/api/0.6/user/gpx_files.xml
index 421659f..df74c66 100644
--- a/tests/testthat/mock_list_gpxs/osm.org/api/0.6/user/gpx_files.xml
+++ b/tests/testthat/mock_list_gpxs/osm.org/api/0.6/user/gpx_files.xml
@@ -1,55 +1,58 @@
-
+
StJuliàDeRibelles_HostalDeLaMuga_Talaixà_Sadernes
-
+
St. Aniol - Passant del Gamarús - cova dels Trabucaires - Passant d'en Llebre
-
+
camins de Cerdanyola
trailrun
-
+
Corriols per les rodalies del Bruc
-
+
Roca de la Pena circular
-
+
Roca de la Pena des de Llobera
-
+
Airoto Marimanha Oriental
camp
a
través
-
+
Castell - Canigó - refugi d'Aragó
-
+
+ Turó de les 11 hores
+
+
Volta circular amb corriols per traçar
-
+
Camins pendents d'agegir entre Perles i Fígols pel Collet de la Canal d'en Joan
-
+
Gósol - Vulturó per Josa del Cadí
-
+
Vulturó i fins més avall del refugi de St. Jordi
-
+
Tornada a Gòsol
-
+
Imlil - Tamsoult
-
+
Toubkal - Imlil
-
+
Tamsoult - Refuge Toubkal
diff --git a/tests/testthat/test-gps_traces.R b/tests/testthat/test-gps_traces.R
index 68ee186..d657c5c 100644
--- a/tests/testthat/test-gps_traces.R
+++ b/tests/testthat/test-gps_traces.R
@@ -1,11 +1,11 @@
-column_meta_gpx <- c("id", "name", "user", "visibility", "pending", "timestamp", "lat", "lon", "description", "tags")
+column_meta_gpx <- c("id", "name", "uid", "user", "visibility", "pending", "timestamp", "lat", "lon", "description", "tags")
column_gpx <- c("lat", "lon", "ele", "time")
column_pts_gps <- c("lat", "lon", "time")
class_columns <- list(
- id = "character", name = "character", user = "character", visibility = "character", pending = "logical",
- timestamp = "POSIXct", lat = "character", lon = "character", description = "character", tags = "list",
- ele = "character", time = "POSIXct"
+ id = "character", name = "character", uid = "character", user = "character", visibility = "character",
+ pending = "logical", timestamp = "POSIXct", lat = "character", lon = "character", description = "character",
+ tags = "list", ele = "character", time = "POSIXct"
)
@@ -87,17 +87,21 @@ test_that("edit gpx works", {
## Download Metadata: `GET /api/0.6/gpx/#id/details` ----
test_that("osm_get_metadata_gpx works", {
+ trk_meta <- list()
with_mock_dir("mock_get_metadata_gpx", {
- trk_meta <- osm_get_metadata_gpx(gpx_id = 3790367)
+ trk_meta$track <- osm_get_gpx_metadata(gpx_id = 3790367)
+ trk_meta$tracks <- osm_get_gpx_metadata(gpx_id = c(3790367, 3458743))
})
- expect_s3_class(trk_meta, "data.frame")
- expect_named(trk_meta, column_meta_gpx)
+ lapply(trk_meta, function(x) expect_s3_class(x, "data.frame"))
+ lapply(trk_meta, function(x) expect_named(x, column_meta_gpx))
- mapply(function(x, cl) expect_true(inherits(x, cl)), x = trk_meta, cl = class_columns[names(trk_meta)])
+ lapply(trk_meta, function(trk) {
+ mapply(function(x, cl) expect_true(inherits(x, cl)), x = trk, cl = class_columns[names(trk)])
+ })
# Check that time is extracted, otherwise it's 00:00:00 in local time
- expect_false(strftime(as.POSIXct(trk_meta$timestamp), format = "%M:%S") == "00:00")
+ lapply(trk_meta, function(x) expect_false(unique(strftime(as.POSIXct(x$timestamp), format = "%M:%S") == "00:00")))
})