add missing param

mpadge · mpadge · commit 9bff96fd52fa · 2019-11-15T11:25:54.000+01:00
diff --git a/R/flowlayers.R b/R/flowlayers.R
@@ -90,7 +90,7 @@ get_layer_internal <- function (net, from = "subway", to = "disperse", data_dir)
 
 # return all pairwise combinations of flow layer categories, removing any that
 # have already been calculated
-from_to_pairs <- function ()
+from_to_pairs <- function (data_dir)
 {
     categories <- c ("subway", "centrality", "residential", "transportation",
                      "sustenance", "entertainment", "education", "healthcare")

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ get_layer_internal <- function (net, from = "subway", to = "disperse", data_dir)`
`90`	`90`
`91`	`91`	`# return all pairwise combinations of flow layer categories, removing any that`
`92`	`92`	`# have already been calculated`
`93`		`-from_to_pairs <- function ()`
	`93`	`+from_to_pairs <- function (data_dir)`
`94`	`94`	`{`
`95`	`95`	`categories <- c ("subway", "centrality", "residential", "transportation",`
`96`	`96`	`"sustenance", "entertainment", "education", "healthcare")`