fix #114

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gtfsrouter
 Title: Routing with 'GTFS' (General Transit Feed Specification) Data
-Version: 0.1.2.003
+Version: 0.1.2.004
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre")),
     person("Marcin", "Stepniak", , "[email protected]", role = "aut",

R/transfers.R

@@ -93,10 +93,9 @@ gtfs_transfer_table <- function (gtfs,
         min_transfer_time = ceiling (transfer_times)
     )
 
-    index <- which (!duplicated (transfers [, c (
-        "from_stop_id",
-        "to_stop_id"
-    )]))
+    # See #114: data.table::duplicated currently segfaults (Jan 2024):
+    ft <- data.frame (transfers [, c ("from_stop_id", "to_stop_id")])
+    index <- which (!duplicated (ft))
     transfers <- transfers [index, ]
 
     # Those transfers only include times, but these may then correspond to

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/gtfsrouter",
   "issueTracker": "https://github.com/UrbanAnalyst/gtfsrouter/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.2.003",
+  "version": "0.1.2.004",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",