Other files ignored by Codecov
DESCRIPTION
has changed.
85 | 85 | if (inherits(html, "error")) { |
|
86 | 86 | mssg <- tt |
|
87 | 87 | } else { |
|
88 | - | mssg <- xml_text(xml_find_all(html, '//body//p[text()[contains(., "error")]]')) %||% "" |
|
88 | + | mssg <- xml_text(xml_find_all(html, '//body//p[text()[contains(., "Error") or contains(., "error")]]')) %||% "" |
|
89 | 89 | mssg <- sub("Message\\s", "", mssg) |
|
90 | - | if (nchar(mssg) == 0) { |
|
90 | + | if (!nzchar(mssg)) { |
|
91 | 91 | mssg <- strect(xml_text(xml_find_first(html, '//body')), "Query error.+") |
|
92 | 92 | } |
|
93 | 93 | } |
Files | Coverage |
---|---|
R | 62.02% |
Project Totals (20 files) | 62.02% |