fixes #16

mpadge · mpadge · commit fbde2ef6bc36 · 2019-11-20T22:18:44.000+01:00
diff --git a/R/server.R b/R/server.R
@@ -32,8 +32,7 @@ shinyAppServer = function(input, output, session) {
     )
   )
 
-  # Defaults to first 'city', so should load that data by default
-  net <<- readRDS(system.file("net-accra.Rds", package = "upthat"))
+  net <<- readRDS(system.file("net-kathmandu.Rds", package = "upthat"))
   net$layer <- net$flow
   rds_files_available = list.files(path = "inst", pattern = ".Rds", full.names = TRUE)
 

Original file line number	Diff line number	Diff line change
`@@ -32,8 +32,7 @@ shinyAppServer = function(input, output, session) {`
`32`	`32`	`)`
`33`	`33`	`)`
`34`	`34`
`35`		`- # Defaults to first 'city', so should load that data by default`
`36`		`- net <<- readRDS(system.file("net-accra.Rds", package = "upthat"))`
	`35`	`+ net <<- readRDS(system.file("net-kathmandu.Rds", package = "upthat"))`
`37`	`36`	`net$layer <- net$flow`
`38`	`37`	`rds_files_available = list.files(path = "inst", pattern = ".Rds", full.names = TRUE)`
`39`	`38`