Other files ignored by Codecov
tests/testthat/test-info.R
has changed.
DESCRIPTION
has changed.
70 | 70 | #' } |
|
71 | 71 | ||
72 | 72 | info <- function(datasetid, url = eurl(), ...){ |
|
73 | - | json <- erdddap_GET(sprintf(paste0(url, 'info/%s/index.json'), datasetid), |
|
73 | + | url <- sub("/$", "", url) |
|
74 | + | json <- erdddap_GET(sprintf(file.path(url, 'info/%s/index.json'), datasetid), |
|
74 | 75 | NULL, ...) |
|
75 | 76 | colnames <- vapply(tolower(json$table$columnNames), |
|
76 | 77 | function(z) gsub("\\s", "_", z), "", USE.NAMES = FALSE) |
156 | 157 | } |
|
157 | 158 | ||
158 | 159 | table_or_grid <- function(datasetid, url) { |
|
159 | - | table_url <- paste0(url, 'tabledap/index.json') |
|
160 | + | url <- sub("/$", "", url) |
|
161 | + | table_url <- file.path(url, 'tabledap/index.json') |
|
160 | 162 | tab <- toghelper(table_url) |
|
161 | 163 | if (datasetid %in% tab) "tabledap" else "griddap" |
|
162 | 164 | } |
Files | Coverage |
---|---|
R | 62.13% |
Project Totals (20 files) | 62.13% |