mpadge.tngl.sh
Distances on Directed Graphs in R
expand tests for #299
+39
-4
+1
-1
DESCRIPTION
+1
-1
DESCRIPTION
+10
-2
R/weight-streetnet-times.R
+10
-2
R/weight-streetnet-times.R
···
119
119
120
120
oneway_keys <- tolower (substring (names (table (graph$oneway)), 1, 1))
121
121
if (length (oneway_keys) > 2L) {
122
-
warning ("'oneway' column has ambiguous values; should be TRUE/FALSE or 'yes'/'no' only")
122
+
warning (
123
+
"'oneway' column has ambiguous values; ",
124
+
"should be TRUE/FALSE or 'yes'/'no' only",
125
+
call. = FALSE
126
+
)
127
+
oneway_keys <- oneway_keys [which (oneway_keys %in% c ("0", "1", "y", "n", "t", "f"))]
123
128
}
124
129
if (all (oneway_keys %in% c ("0", "1"))) {
125
130
graph$oneway <- as.logical (graph$oneway)
126
131
} else if (all (oneway_keys %in% c ("y", "n"))) {
127
132
graph$oneway <- tolower (substring (graph$oneway, 1, 1))
128
-
graph$oneway <- ifelse (graph$oneway == "no", FALSE, TRUE)
133
+
graph$oneway <- ifelse (graph$oneway == "y", TRUE, FALSE)
134
+
} else if (all (oneway_keys %in% c ("t", "f"))) {
135
+
graph$oneway <- tolower (substring (graph$oneway, 1, 1))
136
+
graph$oneway <- ifelse (graph$oneway == "t", TRUE, FALSE)
129
137
}
130
138
131
139
if (length (bikeflags) == 1) {
+1
-1
codemeta.json
+1
-1
codemeta.json
···
11
11
"codeRepository": "https://github.com/UrbanAnalyst/dodgr",
12
12
"issueTracker": "https://github.com/UrbanAnalyst/dodgr/issues",
13
13
"license": "https://spdx.org/licenses/GPL-3.0",
14
-
"version": "0.4.2.050",
14
+
"version": "0.4.2.051",
15
15
"programmingLanguage": {
16
16
"@type": "ComputerLanguage",
17
17
"name": "R",
+27
tests/testthat/test-streetnet.R
+27
tests/testthat/test-streetnet.R
···
164
164
h$oneway [index] <- "yes"
165
165
graph4 <- weight_streetnet (h, wt_profile = "bicycle")
166
166
expect_identical (nrow (graph2), nrow (graph4))
167
+
168
+
# Different encodings for oneway columns
169
+
h <- hampi
170
+
h$oneway [1] <- "no"
171
+
h$oneway [2] <- "maybe"
172
+
expect_warning (
173
+
graph5 <- weight_streetnet (h, wt_profile = "bicycle"),
174
+
"'oneway' column has ambiguous values"
175
+
)
176
+
expect_equal (nrow (graph5), nrow (graph0))
177
+
178
+
h$oneway [2] <- NA_character_
179
+
h$oneway [h$oneway == "no"] <- "false"
180
+
h$oneway [h$oneway == "yes"] <- "true"
181
+
graph6 <- weight_streetnet (h, wt_profile = "bicycle")
182
+
expect_equal (nrow (graph5), nrow (graph6))
183
+
184
+
h$oneway [h$oneway == "false"] <- 0
185
+
h$oneway [h$oneway == "true"] <- 1
186
+
storage.mode (h$oneway) <- "numeric"
187
+
graph7 <- weight_streetnet (h, wt_profile = "bicycle")
188
+
expect_equal (nrow (graph5), nrow (graph7))
189
+
190
+
h$oneway <- as.logical (h$oneway)
191
+
h$oneway [2] <- h$oneway [3] <- TRUE
192
+
graph8 <- weight_streetnet (h, wt_profile = "bicycle")
193
+
expect_lt (nrow (graph8), nrow (graph7))
167
194
})
168
195
169
196
test_that ("wt_profile", {