No known key found for this signature in database
GPG Key ID: 1D7529BE14E2BBA9
1 changed files with
3 additions and
1 deletions
-
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), |
|
|
|