Replace class with inherits

R/gtfs_interpolate_times.R

@@ -20,15 +20,15 @@
 gtfs_interpolate_times <- function(gtfs, ncores = 1){
   stop_times <- gtfs$stop_times
 
-  if(class(stop_times$arrival_time) != "Period"){
+  if(!inherits(stop_times$arrival_time, "Period")){
     stop_times$arrival_time <- lubridate::hms(stop_times$arrival_time)
   }
 
-  if(class(stop_times$departure_time) != "Period"){
+  if(!inherits(stop_times$departure_time, "Period")){
     stop_times$departure_time <- lubridate::hms(stop_times$departure_time)
   }
 
-  if(class(stop_times$stop_sequence) == "character"){
+  if(inherits(stop_times$stop_sequence, "character")){
     stop_times$stop_sequence <- as.integer(stop_times$stop_sequence)
   }
 
@@ -110,12 +110,12 @@ stops_interpolate <- function(x){
 
   # Needed because rbindlist doesn't work with periods for some reason
   arrival_time <- try(period2gtfs(x$arrival_time), silent = TRUE)
-  if("try-error" %in% class(arrival_time)){
+  if(inherits(arrival_time, "try-error")){
     stop("conversion of times failed for tripID: ",unique(x$trip_id))
   }
   x$arrival_time <- arrival_time
   departure_time <- try(period2gtfs(x$departure_time), silent = TRUE)
-  if("try-error" %in% class(departure_time)){
+  if(inherits(departure_time, "try-error")){
     stop("conversion of times failed for tripID: ",unique(x$trip_id))
   }
   x$departure_time <- departure_time

R/gtfs_to_sf.R

@@ -8,12 +8,12 @@
 gtfs_stops_sf <- function(gtfs){
   stops <- gtfs$stops
 
-  if(class(stops$stop_lon) != "numeric"){
+  if(!inherits(stops$stop_lon, "numeric")){
     message("Converting stop_lon to numeric")
     stops$stop_lon <- as.numeric(stops$stop_lon)
   }
 
-  if(class(stops$stop_lat) != "numeric"){
+  if(!inherits(stops$stop_lat, "numeric")){
     message("Converting stop_lat to numeric")
     stops$stop_lat <- as.numeric(stops$stop_lat)
   }
@@ -42,11 +42,11 @@ gtfs_trips_sf <- function(gtfs){
   stops <- gtfs$stops
   stops <- stops[,c("stop_id","stop_lon","stop_lat")]
 
-  if(class(stops$stop_lon) != "numeric"){
+  if(!inherits(stops$stop_lon, "numeric")){
     stops$stop_lon <- as.numeric(stops$stop_lon)
   }
 
-  if(class(stops$stop_lat) != "numeric"){
+  if(!inherits(stops$stop_lat, "numeric")){
     stops$stop_lat <- as.numeric(stops$stop_lat)
   }
 
@@ -85,11 +85,11 @@ gtfs_routes_sf <- function(gtfs){
   stops <- gtfs$stops
   stops <- stops[,c("stop_id","stop_lon","stop_lat")]
 
-  if(class(stops$stop_lon) != "numeric"){
+  if(!inherits(stops$stop_lon, "numeric")){
     stops$stop_lon <- as.numeric(stops$stop_lon)
   }
 
-  if(class(stops$stop_lat) != "numeric"){
+  if(!inherits(stops$stop_lat, "numeric")){
     stops$stop_lat <- as.numeric(stops$stop_lat)
   }
 

R/import_OperatingProfile.R

@@ -68,11 +68,11 @@ import_OperatingProfile <- function(OperatingProfile) {
 
       # Check for children
       sdo_check <- try(xml2::xml_child(ServicedDaysOfOperation), silent = TRUE)
-      if(class(sdo_check) == "try-error"){
+      if(inherits(sdo_check, "try-error")){
         ServicedDaysOfOperation <- NULL
       }
       sndo_check <- try(xml2::xml_child(ServicedDaysOfNonOperation), silent = TRUE)
-      if(class(sdo_check) == "try-error"){
+      if(inherits(sdo_check, "try-error")){
         ServicedDaysOfOperation <- NULL
       }
 
@@ -224,14 +224,14 @@ import_OperatingProfile <- function(OperatingProfile) {
       stringsAsFactors = FALSE
     )
 
-    if(class(ServicedDaysOfOperation) == "data.frame"){
+    if(inherits(ServicedDaysOfOperation, "data.frame")){
       res <- cbind(res, ServicedDaysOfOperation)
     } else {
       res$ServicedDaysOfOperation <- NA
       res$ServicedDaysOfOperationType <- NA
     }
 
-    if(class(ServicedDaysOfNonOperation) == "data.frame"){
+    if(inherits(ServicedDaysOfNonOperation, "data.frame")){
       res <- cbind(res, ServicedDaysOfNonOperation)
     } else {
       res$ServicedDaysOfNonOperation <- NA

R/write_gtfs.R

@@ -34,24 +34,24 @@ gtfs_write <- function(gtfs,
 
   #Format Dates
 
-  if(class(gtfs$calendar$start_date) == "Date"){
+  if(inherits(gtfs$calendar$start_date, "Date")){
     gtfs$calendar$start_date <- format(gtfs$calendar$start_date, "%Y%m%d")
   }
 
-  if(class(gtfs$calendar$end_date) == "Date"){
+  if(inherits(gtfs$calendar$end_date, "Date")){
     gtfs$calendar$end_date <- format(gtfs$calendar$end_date, "%Y%m%d")
   }
 
-  if(class(gtfs$calendar_dates$date) == "Date"){
+  if(inherits(gtfs$calendar_dates$date, "Date")){
     gtfs$calendar_dates$date <- format(gtfs$calendar_dates$date, "%Y%m%d")
   }
 
   #Format times
-  if(class(gtfs$stop_times$arrival_time) == "Period"){
+  if(inherits(gtfs$stop_times$arrival_time, "Period")){
     gtfs$stop_times$arrival_time <- period2gtfs(gtfs$stop_times$arrival_time)
   }
 
-  if(class(gtfs$stop_times$departure_time) == "Period"){
+  if(inherits(gtfs$stop_times$departure_time, "Period")){
     gtfs$stop_times$departure_time <- period2gtfs(gtfs$stop_times$departure_time)
   }
 
@@ -87,7 +87,7 @@ gtfs_write <- function(gtfs,
 #'
 stripCommas <- function(df) {
   df[] <- lapply(df, function(x) {
-    if (class(x) == "character") {
+    if (inherits(x, "character")) {
       if(!all(validUTF8(x))){
         Encoding(x) <- "latin1"
         x <- enc2utf8(x)
@@ -109,7 +109,7 @@ stripCommas <- function(df) {
 #'
 stripTabs <- function(df, stripNewline) {
   df[] <- lapply(df, function(x) {
-    if (class(x) == "character") {
+    if (inherits(x, "character")) {
       if(!all(validUTF8(x))){
         Encoding(x) <- "latin1"
         x <- enc2utf8(x)