Skip to content

Commit 96edd13

Browse files
AnnaGoodman1AnnaGoodman1
committed
version 2 saverds
1 parent 57a952a commit 96edd13

8 files changed

Lines changed: 46 additions & 66 deletions

‎04a_cyclestreets_master.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -100,7 +100,7 @@ if (purpose=="commute") {
100100
}
101101
lines_cs <- SpatialLinesDataFrame(sl = lines_cs_lines, data = lines_cs_data)
102102
proj4string(lines_cs) <- proj_4326
103-
saveRDS(lines_cs, (file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "lines_cs.Rds")))
103+
saveRDS(lines_cs, (file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "lines_cs.Rds")), version = 2)
104104

105105
#########################
106106
### PARTS 2 AND 3: ROUTING
@@ -134,5 +134,5 @@ rfrq_all_data$dist_rf_e <- rfrq_all_data$rf_dist_km / rfrq_all_data$e_dist_km
134134
rfrq_all_data$dist_rq_rf <- rfrq_all_data$rq_dist_km / rfrq_all_data$rf_dist_km
135135
rfrq_all_data <- rfrq_all_data[, c(1:4, 5, 8, 11, 12, 6, 9, 7, 10)]
136136
write_csv(rfrq_all_data, file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rfrq_all_data.csv"))
137-
# saveRDS(rfrq_all_data,file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rfrq_all_data.Rds"))
137+
# saveRDS(rfrq_all_data,file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rfrq_all_data.Rds"), version = 2)
138138

‎04b_cyclestreets_batch_routing.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ for(i in 1:nbatch){
2626
routes <- line2route(lines_cs_sub, route_fun = route_cyclestreet, plan = route_type, n_processes = 10, base_url = "http://pct.cyclestreets.net/api/")
2727
routes@data <- routes@data[,!names(routes@data) %in% c("plan","start","finish")] # drop fields not wanted
2828
routes@data <- left_join(routes@data, lines_cs_sub@data, by = "id") # merge in data in lines file
29-
saveRDS(routes,file = file.path(path_temp_cs, purpose, geography, paste0("r",substr(route_type, 1, 1),"_",file_name,"_",i,"of",nbatch,".Rds")))
29+
saveRDS(routes,file = file.path(path_temp_cs, purpose, geography, paste0("r",substr(route_type, 1, 1),"_",file_name,"_",i,"of",nbatch,".Rds")), version = 2)
3030
print(paste0("Batch ",i," of ",nbatch," finished at ",Sys.time()))
3131
}
3232

@@ -73,7 +73,7 @@ if(any(is.na(stack_data$length))) {
7373
routes_redo@data <- left_join(routes_redo@data, stack_redo@data, by = "id")
7474
routes_redo <- routes_redo[routes_redo@data$id!=id1,] # REMOVE THE FIRST LINE, THAT WAS REPEATED JUST TO MAKE SURE LINE2ROUTE RAN OK
7575
row.names(routes_redo@data) <- sapply(1:length(routes_redo), function(j) routes_redo@lines[[j]]@ID)
76-
saveRDS(routes_redo,file = file.path(path_temp_cs, purpose, geography, paste0("r",substr(route_type, 1, 1),"_",file_name,"_redo_of",nbatch,".Rds")))
76+
saveRDS(routes_redo,file = file.path(path_temp_cs, purpose, geography, paste0("r",substr(route_type, 1, 1),"_",file_name,"_redo_of",nbatch,".Rds")), version = 2)
7777
routes_redo_data <- routes_redo@data
7878
stack_data <- rbind(stack_keep, routes_redo_data)
7979
stack_redo2 <- stack_data[is.na(stack_data$length) | is.na(stack_data$av_incline) | is.na(stack_data$time) | !is.na(stack_data$error), ]
@@ -84,7 +84,7 @@ if(any(is.na(stack_data$length))) {
8484
if (route_type == "fastest") {
8585
stack_data <- stack_data[(stack_data$length < (maxdist_scenario * 1000)),] # NB length in metres, maxdist_scenario in km
8686
}
87-
saveRDS(stack_data, file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("archive/r",substr(route_type, 1, 1),"_",file_name,"_data.Rds")))
87+
saveRDS(stack_data, file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("archive/r",substr(route_type, 1, 1),"_",file_name,"_data.Rds")), version = 2)
8888

8989
# REJOIN THE FILES FOR **ROUTES** (FASTEST ROUTE LENGTH < VISUALISE DISTANCE), MERGE IN ROUTES THAT INITIALLY FAILED, & SAVE SHAPE
9090
rf_data_visualise <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("archive/rf_",file_name,"_data.Rds")))
@@ -138,5 +138,5 @@ if(file.exists(file.path(path_temp_cs, purpose, geography, paste0("r", substr(ro
138138
}
139139
stack@data <- stack@data["id"]
140140

141-
saveRDS(stack,file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("archive/r",substr(route_type, 1, 1),"_",file_name,"_shape.Rds")))
142-
saveRDS(stack,file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("r",substr(route_type, 1, 1),"_shape.Rds")))
141+
saveRDS(stack,file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("archive/r",substr(route_type, 1, 1),"_",file_name,"_shape.Rds")), version = 2)
142+
saveRDS(stack,file = file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, paste0("r",substr(route_type, 1, 1),"_shape.Rds")), version = 2)

‎05.3_alltrips_scenario_building_bodge.R‎

Lines changed: 6 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -18,12 +18,12 @@ rnet_codebook <- read_csv(file.path(path_outputs_regional_R, purpose, geography,
1818
z <- readRDS(file.path(path_outputs_regional_R, purpose, geography, region, "github_originals/z.Rds"))
1919
z@data <- dplyr::rename(z@data, geo_name = `geo_label`)
2020
z@data <- z@data[z_codebook$`Variable name`]
21-
saveRDS(z, file.path(path_outputs_regional_R, purpose, geography, region, "z.Rds"))
21+
saveRDS(z, file.path(path_outputs_regional_R, purpose, geography, region, "z.Rds"), version = 2)
2222

2323
c <- readRDS(file.path(path_outputs_regional_R, purpose, geography, region, "github_originals/c.Rds"))
2424
c@data <- dplyr::rename(c@data, geo_name = `geo_label`)
2525
c@data <- c@data[c_codebook$`Variable name`]
26-
saveRDS(c, file.path(path_outputs_regional_R, purpose, geography, region, "c.Rds"))
26+
saveRDS(c, file.path(path_outputs_regional_R, purpose, geography, region, "c.Rds"), version = 2)
2727

2828
l <- readRDS(file.path(path_outputs_regional_R, purpose, geography, region, "github_originals/l.Rds"))
2929
l@data <- dplyr::rename(l@data, geo_code1 = `msoa1`, geo_code2 = `msoa2`, geo_name1 = `geo_label1`,
@@ -32,41 +32,21 @@ l@data <- dplyr::rename(l@data, geo_code1 = `msoa1`, geo_code2 = `msoa2`, geo_na
3232
dist_rq_rf = `distq_f`, rf_avslope_perc = `avslope`,
3333
rq_avslope_perc = `avslope_q`, rf_time_min = `time_fast`, rq_time_min = `time_quiet`)
3434
l@data <- l@data[od_l_rf_codebook$`Variable name`]
35-
saveRDS(l, file.path(path_outputs_regional_R, purpose, geography, region, "l.Rds"))
35+
saveRDS(l, file.path(path_outputs_regional_R, purpose, geography, region, "l.Rds"), version = 2)
3636

3737
rf <- readRDS(file.path(path_outputs_regional_R, purpose, geography, region, "github_originals/rf.Rds"))
3838
rf@data <- left_join(rf@data, l@data, by="id")
3939
rf@data <- rf@data[od_l_rf_codebook$`Variable name`]
40-
saveRDS(rf, file.path(path_outputs_regional_R, purpose, geography, region, "rf.Rds"))
40+
saveRDS(rf, file.path(path_outputs_regional_R, purpose, geography, region, "rf.Rds"), version = 2)
4141

4242
rq <- readRDS(file.path(path_outputs_regional_R, purpose, geography, region, "github_originals/rq.Rds"))
4343
rq@data <- left_join(rq@data, l@data, by="id")
4444
rq@data <- rq@data[rq_codebook$`Variable name`]
45-
saveRDS(rq, file.path(path_outputs_regional_R, purpose, geography, region, "rq.Rds"))
45+
saveRDS(rq, file.path(path_outputs_regional_R, purpose, geography, region, "rq.Rds"), version = 2)
4646

4747
rnet <- readRDS(file.path(path_outputs_regional_R, purpose, geography, region, "github_originals/rnet.Rds"))
4848
rnet@data <- dplyr::rename(rnet@data, singlezone = `Singlezone`)
4949
rnet@data$local_id <- 1:nrow(rnet)
5050
rnet@data <- rnet@data[rnet_codebook$`Variable name`]
51-
saveRDS(rnet, file.path(path_outputs_regional_R, purpose, geography, region, "rnet.Rds"))
51+
saveRDS(rnet, file.path(path_outputs_regional_R, purpose, geography, region, "rnet.Rds"), version = 2)
5252

53-
54-
# ## MAKE AND ISLE OF WIGHT TEST VERSION, COPY FROM COMMUTE
55-
# region <- "isle-of-wight"
56-
# z <- readRDS(file.path(path_outputs_regional_R, "commute", geography, region, "z.Rds"))
57-
# saveRDS(z, file.path(path_outputs_regional_R, purpose, geography, region, "z.Rds"))
58-
#
59-
# c <- readRDS(file.path(path_outputs_regional_R, "commute", geography, region, "c.Rds"))
60-
# saveRDS(c, file.path(path_outputs_regional_R, purpose, geography, region, "c.Rds"))
61-
#
62-
# l <- readRDS(file.path(path_outputs_regional_R, "commute", geography, region, "l.Rds"))
63-
# saveRDS(l, file.path(path_outputs_regional_R, purpose, geography, region, "l.Rds"))
64-
#
65-
# rf <- readRDS(file.path(path_outputs_regional_R, "commute", geography, region, "rf.Rds"))
66-
# saveRDS(rf, file.path(path_outputs_regional_R, purpose, geography, region, "rf.Rds"))
67-
#
68-
# rq <- readRDS(file.path(path_outputs_regional_R, "commute", geography, region, "rq.Rds"))
69-
# saveRDS(rq, file.path(path_outputs_regional_R, purpose, geography, region, "rq.Rds"))
70-
#
71-
# rnet <- readRDS(file.path(path_outputs_regional_R, "commute", geography, region, "rnet.Rds"))
72-
# saveRDS(rnet, file.path(path_outputs_regional_R, purpose, geography, region, "rnet.Rds"))

‎06_merge_national_datasets.R‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -32,9 +32,9 @@ z_shape_private <- z_shape
3232

3333
if(purpose == "commute") {
3434
c_shape <- spTransform(c_shape, proj_4326)
35-
l_shape <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "lines_cs.Rds"))
36-
rf_shape <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rf_shape.Rds"))
37-
rq_shape <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rq_shape.Rds"))
35+
l_shape <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "lines_cs.Rds") , version = 2)
36+
rf_shape <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rf_shape.Rds") , version = 2)
37+
rq_shape <- readRDS(file.path(path_inputs, "02_intermediate/02_travel_data", purpose, geography, "rq_shape.Rds") , version = 2)
3838
}
3939
if(purpose == "school") {
4040
d_shape <- readOGR(file.path(path_inputs,"02_intermediate/01_geographies/urn_cents.geojson"))
@@ -78,7 +78,7 @@ print(summary({sel_zone <- z_shape$geo_code %in% z_all_attributes$geo_code})) #
7878
z_shape <- z_shape[sel_zone,]
7979
z_shape@data <- data.frame(geo_code = z_shape$geo_code)
8080
z_shape@data <- left_join(z_shape@data, z_all_attributes, by="geo_code")
81-
saveRDS(z_shape, file.path(path_outputs_national, purpose, geography, "z_all.Rds"))
81+
saveRDS(z_shape, file.path(path_outputs_national, purpose, geography, "z_all.Rds") , version = 2)
8282
geojson_write(z_shape, file = file.path(path_outputs_national, purpose, geography, "z_all.geojson"))
8383

8484
if(purpose == "commute") {
@@ -96,7 +96,7 @@ if(purpose == "commute") {
9696
c_shape@data <- data.frame(geo_code = c_shape$geo_code)
9797
c_shape@data <- left_join(c_shape@data, c_all_attributes, by="geo_code")
9898
c_shape@data <- c_shape@data[c_codebook$`Variable name`]
99-
saveRDS(c_shape, file.path(path_outputs_national, purpose, geography, "c_all.Rds"))
99+
saveRDS(c_shape, file.path(path_outputs_national, purpose, geography, "c_all.Rds") , version = 2)
100100
geojson_write(c_shape, file = (file.path(path_outputs_national, purpose, geography, "c_all.geojson")))
101101

102102
# MERGE LINE SCENARIO DATA TO BETWEEN-ZONE LINES FILE
@@ -108,15 +108,15 @@ if(purpose == "commute") {
108108
l_shape <- l_shape[sel_line2,]
109109
l_shape@data <- data.frame(id = l_shape$id)
110110
l_shape@data <- left_join(l_shape@data, od_all_attributes, by="id")
111-
saveRDS(l_shape, (file.path(path_outputs_national, purpose, geography, "l_all.Rds")))
111+
saveRDS(l_shape, (file.path(path_outputs_national, purpose, geography, "l_all.Rds")) , version = 2)
112112

113113
# MERGE LINE SCENARIO DATA TO FAST ROUTES FILE
114114
print("rf")
115115
print(summary(({sel_rf <- (rf_shape$id %in% od_all_attributes$id)}))) # Limit to those with od_attributes (minflow_visualise)
116116
rf_shape <- rf_shape[sel_rf,]
117117
rf_shape@data <- data.frame(id = rf_shape$id)
118118
rf_shape@data <- left_join(rf_shape@data, od_all_attributes, by="id")
119-
saveRDS(rf_shape, (file.path(path_outputs_national, purpose, geography, "rf_all.Rds")))
119+
saveRDS(rf_shape, (file.path(path_outputs_national, purpose, geography, "rf_all.Rds")) , version = 2)
120120

121121
# MERGE LINE SCENARIO DATA TO QUIET ROUTES FILE
122122
print("rq")
@@ -125,7 +125,7 @@ if(purpose == "commute") {
125125
rq_shape@data <- data.frame(id = rq_shape$id)
126126
rq_shape@data <- left_join(rq_shape@data, od_all_attributes, by="id")
127127
rq_shape@data <- rq_shape@data[rq_codebook$`Variable name`]
128-
saveRDS(rq_shape, (file.path(path_outputs_national, purpose, geography, "rq_all.Rds")))
128+
saveRDS(rq_shape, (file.path(path_outputs_national, purpose, geography, "rq_all.Rds")) , version = 2)
129129
}
130130

131131
# MERGE DESTINATION DATA TO DESTINATIONS FILE
@@ -135,7 +135,7 @@ if(purpose == "school") {
135135
d_shape <- d_shape[sel_zone,]
136136
d_shape@data <- data.frame(urn = d_shape$urn)
137137
d_shape@data <- left_join(d_shape@data, d_all_attributes, by="urn")
138-
saveRDS(d_shape, file.path(path_outputs_national, purpose, geography, "d_all.Rds"))
138+
saveRDS(d_shape, file.path(path_outputs_national, purpose, geography, "d_all.Rds") , version = 2)
139139
geojson_write(d_shape, file = file.path(path_outputs_national, purpose, geography, "d_all.geojson"))
140140
}
141141

@@ -146,21 +146,21 @@ if(purpose == "school") {
146146
z_shape_private <- z_shape_private[sel_zone,]
147147
z_shape_private@data <- data.frame(geo_code = z_shape_private$geo_code)
148148
z_shape_private@data <- left_join(z_shape_private@data, z_all_attributes_private, by="geo_code")
149-
saveRDS(z_shape_private, file.path(path_outputs_national, purpose_private, geography, "z_all.Rds"))
149+
saveRDS(z_shape_private, file.path(path_outputs_national, purpose_private, geography, "z_all.Rds") , version = 2)
150150

151151
print("private_d")
152152
print(summary({sel_zone <- d_shape_private$urn %in% d_all_attributes_private$urn})) # 206 false = schools excluded from study pop.
153153
d_shape_private <- d_shape_private[sel_zone,]
154154
d_shape_private@data <- data.frame(urn = d_shape_private$urn)
155155
d_shape_private@data <- left_join(d_shape_private@data, d_all_attributes_private, by="urn")
156-
saveRDS(d_shape_private, file.path(path_outputs_national, purpose_private, geography, "d_all.Rds"))
156+
saveRDS(d_shape_private, file.path(path_outputs_national, purpose_private, geography, "d_all.Rds") , version = 2)
157157
}
158158

159159
# MERGE LA DATA TO LA GEO FILE [SAME REGARDLESS OF MSOA/LSOA]
160160
summary({sel_lad <- (lad$lad11cd %in% lad_attributes$lad11cd)}) # 22 false schools = Wales
161161
lad <- lad[sel_lad,]
162162
lad@data <- left_join(lad@data, lad_attributes, by = "lad11cd")
163-
saveRDS(lad, (file.path(path_outputs_national, purpose, "lad.Rds")))
163+
saveRDS(lad, (file.path(path_outputs_national, purpose, "lad.Rds")) , version = 2)
164164
geojson_write(lad, file = file.path(path_outputs_national, purpose, "lad.geojson"))
165165

166166
# MERGE REGION DATA TO REGION GEO FILE [SAME REGARDLESS OF MSOA/LSOA]

‎06b_national_rnet.R‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ summary(rf_all) # looks good:
4040
# Mean : 2.641
4141
# 3rd Qu.: 2.000
4242
# Max. :361.000
43-
# saveRDS(rf_all, "../pct-largefiles/rf_all.Rds")
43+
# saveRDS(rf_all, "../pct-largefiles/rf_all.Rds", version = 2)
4444

4545
# read-in cleaned file
4646
rf_all = readRDS("../pct-largefiles/rf_all.Rds")
@@ -89,23 +89,23 @@ for(r in rs) {
8989
filename_full = paste0("../pct-outputs-regional-R/commute/lsoa/", r, "/rnet_full.Rds")
9090
filename_rnet = paste0("../pct-outputs-regional-R/commute/lsoa/", r, "/rnet.Rds")
9191

92-
saveRDS(rnet_intern, filename_intern)
93-
saveRDS(rnet_extern, filename_extern)
92+
saveRDS(rnet_intern, filename_intern, version = 2)
93+
saveRDS(rnet_extern, filename_extern, version = 2)
9494

9595
message("Generating combined rnet")
9696
rnet_combined = rbind(rnet_intern, rnet_extern)
9797
rnet = overline2(rnet_combined, attrib = scenarios)
9898
# plot(rnet)
9999

100-
saveRDS(rnet, paste0("../pct-outputs-regional-R/commute/lsoa/", r, "/rnet_sf.Rds"))
100+
saveRDS(rnet, paste0("../pct-outputs-regional-R/commute/lsoa/", r, "/rnet_sf.Rds"), version = 2)
101101
rnet_full = cbind(local_id = 1:nrow(rnet), rnet)
102-
saveRDS(as(rnet_full, "Spatial"), filename_full)
102+
saveRDS(as(rnet_full, "Spatial"), filename_full, version = 2)
103103

104104
rnet_subset = rnet_full[tail(order(rnet_full$dutch_slc), max_nrow_net), ]
105105
dutch_slc_min = round(min(rnet_subset$dutch_slc / 10)) * 10
106106
rnet = rnet_full[rnet_full$dutch_slc >= dutch_slc_min, ]
107107
plot(rnet[rnet$dutch_slc > 100, ]) # test it works
108-
saveRDS(as(rnet, "Spatial"), filename_rnet)
108+
saveRDS(as(rnet, "Spatial"), filename_rnet, version = 2)
109109

110110
# add log data
111111
log_data$dutch_slc_min[i] = dutch_slc_min
@@ -149,7 +149,7 @@ rnet_sample = rnet_nat[sample(nrow(rnet_nat), size = 1000), ]
149149
plot(rnet_sample, lwd = rnet_sample$govtarget_slc / mean(rnet_sample$bicycle))
150150
mapview::mapview(rnet_sample, lwd = rnet_sample$govtarget_slc / mean(rnet_sample$bicycle) * 10)
151151
filename_rnet_nat = "../pct-outputs-national/commute/lsoa/rnet_all.Rds"
152-
saveRDS(rnet_nat, filename_rnet_nat)
152+
saveRDS(rnet_nat, filename_rnet_nat, version = 2)
153153
rnet_nat_sf = sf::st_as_sf(rnet_nat)
154154
sf::st_write(rnet_nat_sf, "rnet_all.gpkg")
155155
piggyback::pb_upload("rnet_all.gpkg")

‎07b.1_commute_build_region.R‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -107,18 +107,18 @@ if (region_build_param$to_rebuild_rnet=="1") {
107107
# SAVE OBJECTS
108108
write_csv(od_attributes, file.path(path_outputs_regional_notR, purpose, geography, region, "od_attributes.csv"))
109109
write_csv(z@data, file.path(path_outputs_regional_notR, purpose, geography, region, "z_attributes.csv"))
110-
saveRDS(z, (file.path(path_outputs_regional_R, purpose, geography, region, "z.Rds")))
110+
saveRDS(z, (file.path(path_outputs_regional_R, purpose, geography, region, "z.Rds")) , version = 2)
111111
geojson_write(z, file = file.path(path_outputs_regional_notR, purpose, geography, region, "z.geojson"))
112-
saveRDS(c, (file.path(path_outputs_regional_R, purpose, geography, region, "c.Rds")))
112+
saveRDS(c, (file.path(path_outputs_regional_R, purpose, geography, region, "c.Rds")) , version = 2)
113113
geojson_write(c, file = file.path(path_outputs_regional_notR, purpose, geography, region, "c.geojson"))
114-
saveRDS(l, (file.path(path_outputs_regional_R, purpose, geography, region, "l.Rds")))
114+
saveRDS(l, (file.path(path_outputs_regional_R, purpose, geography, region, "l.Rds")) , version = 2)
115115
geojson_write(l, file = file.path(path_outputs_regional_notR, purpose, geography, region, "l.geojson"))
116-
saveRDS(rf, (file.path(path_outputs_regional_R, purpose, geography, region, "rf.Rds")))
116+
saveRDS(rf, (file.path(path_outputs_regional_R, purpose, geography, region, "rf.Rds")) , version = 2)
117117
geojson_write(rf, file = file.path(path_outputs_regional_notR, purpose, geography, region, "rf.geojson"))
118-
saveRDS(rq, (file.path(path_outputs_regional_R, purpose, geography, region, "rq.Rds")))
118+
saveRDS(rq, (file.path(path_outputs_regional_R, purpose, geography, region, "rq.Rds")) , version = 2)
119119
geojson_write(rq, file = file.path(path_outputs_regional_notR, purpose, geography, region, "rq.geojson"))
120120
if (region_build_param$to_rebuild_rnet=="1") {
121-
saveRDS(rnet, (file.path(path_outputs_regional_R, purpose, geography, region, "rnet.Rds")))
121+
saveRDS(rnet, (file.path(path_outputs_regional_R, purpose, geography, region, "rnet.Rds")) , version = 2)
122122
geojson_write(rnet, file = file.path(path_outputs_regional_notR, purpose, geography, region, "rnet.geojson"))
123123
}
124124

0 commit comments

Comments
 (0)