gtfs objects now explicitly inherit from lists as well. thanks @mpadge

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: gtfsio
 Title: Read and Write General Transit Feed Specification (GTFS) Files
-Version: 0.1.2.9000
+Version: 0.1.2.9001
 Authors@R: 
     c(person(given = "Daniel",
              family = "Herszenhut",

R/gtfs_subset.R

@@ -28,7 +28,7 @@
 
   # make sure that the resulting object keeps the original object classes
 
-  subclass <- setdiff(class(x), "gtfs")
+  subclass <- setdiff(class(x), c("gtfs", "list"))
 
   return(new_gtfs(NextMethod(), subclass = subclass))
 

R/new_gtfs.R

@@ -13,7 +13,7 @@
 #' @param ... Name-value pairs. Additional attributes.
 #'
 #' @return A GTFS object: a named list of data frames, each one corresponding to
-#'   a distinct GTFS text file, with \code{gtfs} class.
+#'   a distinct GTFS text file, with \code{gtfs} and \code{list} classes.
 #'
 #' @family constructors
 #'
@@ -58,10 +58,10 @@ new_gtfs <- function(x, subclass = character(), ...) {
 
   if (!is.character(subclass)) stop("'subclass' must be a character vector.")
 
-  # append "gtfs" to 'subclass', so any objects created by 'new_gtfs()' always
-  # inherit from gtfs class
+  # append "gtfs" and "list" to 'subclass', so any objects created by
+  # 'new_gtfs()' always inherit from gtfs and list classes
 
-  class <- c(subclass, "gtfs")
+  class <- c(subclass, "gtfs", "list")
 
   # create object
 

codemeta.json

@@ -10,7 +10,7 @@
   "codeRepository": "https://github.com/r-transit/gtfsio",
   "issueTracker": "https://github.com/r-transit/gtfsio/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.1.2.9000",
+  "version": "0.1.2.9001",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -123,7 +123,7 @@
       "sameAs": "https://CRAN.R-project.org/package=zip"
     }
   ],
-  "fileSize": "17784.06KB",
+  "fileSize": "151531.429KB",
   "keywords": [
     "r",
     "gtfs"

inst/tinytest/test_new_gtfs.R

@@ -40,18 +40,19 @@ expect_error(
 
 no_class_gtfs <- unclass(gtfs)
 
-# by default an object created with new_gtfs() should inherent from 'gtfs' only
+# by default an object created with new_gtfs() should inherent from 'gtfs' and
+# 'list' only
 
 default <- new_gtfs(no_class_gtfs)
 
-expect_identical(class(default), "gtfs")
+expect_identical(class(default), c("gtfs", "list"))
 
-# if a subclass is specified, the object should inherit both from 'gtfs' and the
-# subclass
+# if a subclass is specified, the object should inherit from 'gtfs', 'list' and
+# the subclass
 
 extra_class <- new_gtfs(no_class_gtfs, subclass = "subclass")
 
-expect_identical(class(extra_class), c("subclass", "gtfs"))
+expect_identical(class(extra_class), c("subclass", "gtfs", "list"))
 
 # attributes passed to '...' should be assigned to the object