Added get() back to selection of opportunities column in accessibil…

…ity function.

r-package/R/accessibility.R

@@ -247,8 +247,8 @@ accessibility <- function(r5r_core,
  checkmate::assert_character(opportunities_colname)
  checkmate::assert_names(names(destinations), must.include = opportunities_colname,
  .var.name = "destinations")
- checkmate::assert_numeric(destinations[, opportunities_colname])
- opportunities_data <- as.integer(destinations[, opportunities_colname])
+ checkmate::assert_numeric(destinations[, get(opportunities_colname)])
+ opportunities_data <- as.integer(destinations[, get(opportunities_colname)])
 
  # time window
  checkmate::assert_numeric(time_window)

r-package/tests_marcus/test_snap.R

@@ -81,4 +81,11 @@ ttm %>% left_join(grid_df, by = c("toId"="id")) %>%
 View()
 grid_df
 
-accessibility()
+
+original <- dplyr::select(snap_df, id = point_id, lat, lon)
+original$opportunities <- 1
+
+system.time(
+ ttm_orig <- accessibility(r5r_core, origins = original, destinations = original,
+ verbose = FALSE)
+)