Browse Source

better test progress indicator

master
boB Rudis 5 years ago
parent
commit
a13f17ef4b
No known key found for this signature in database GPG Key ID: 1D7529BE14E2BBA9
  1. 4
      tests/testthat/test-metis.tidy.R

4
tests/testthat/test-metis.tidy.R

@ -15,11 +15,13 @@ metis::dbConnect(
AwsCredentialsProviderArguments = path.expand("~/.aws/athenaCredentials.props")
) -> con
expect_is(con, "AthenaConnection")
elb_logs <- tbl(con, "elb_logs")
expect_is(elb_logs, "tbl_AthenaConnection")
filter(elb_logs, grepl("200", elbresponsecode)) %>%
filter(elb_logs, grepl("20", elbresponsecode)) %>%
mutate(
tsday = as.Date(substring(timestamp, 1L, 10L)),
host = url_extract_host(url),

Loading…
Cancel
Save