Caching issue about noctua HOT 2 CLOSED

remotes::install_github("dyfanjones/noctua", ref="cache_issue")

library(DBI)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

noctua::noctua_options(cache_size = 10)

con = dbConnect(noctua::athena())

df = dbGetQuery(con, "select * from iris")
#> Info: (Data scanned: 3.63 KB)

df = dbGetQuery(con, SQL("select * from iris"))
#> Info: (Data scanned: 3.63 KB)

# Check cache
noctua:::athena_option_env$cache_dt
#>                                 QueryId              Query     State
#> 1: 181b8974-2288-4ea0-b7fb-d146daea61b8 select * from iris SUCCEEDED
#>    StatementType WorkGroup UnloadDir
#> 1:           DML   primary

tbl_iris = tbl(con, "iris")

# Check cache
noctua:::athena_option_env$cache_dt
#>                                 QueryId              Query     State
#> 1: 181b8974-2288-4ea0-b7fb-d146daea61b8 select * from iris SUCCEEDED
#>    StatementType WorkGroup UnloadDir
#> 1:           DML   primary

tbl_iris
#> Info: (Data scanned: 3.63 KB)
#> # Source:   table<iris> [?? x 5]
#> # Database: Athena 0.1.12 [default@eu-west-1/default]
#>    sepal_length sepal_width petal_length petal_width species
#>           <dbl>       <dbl>        <dbl>       <dbl> <chr>  
#>  1          5.1         3.5          1.4         0.2 setosa 
#>  2          4.9         3            1.4         0.2 setosa 
#>  3          4.7         3.2          1.3         0.2 setosa 
#>  4          4.6         3.1          1.5         0.2 setosa 
#>  5          5           3.6          1.4         0.2 setosa 
#>  6          5.4         3.9          1.7         0.4 setosa 
#>  7          4.6         3.4          1.4         0.3 setosa 
#>  8          5           3.4          1.5         0.2 setosa 
#>  9          4.4         2.9          1.4         0.2 setosa 
#> 10          4.9         3.1          1.5         0.1 setosa 
#> # … with more rows

# Check cache
noctua:::athena_option_env$cache_dt
#>                                 QueryId                           Query
#> 1: 43970523-da56-4e59-8d7b-625e8bc7a8af SELECT *\nFROM "iris"\nLIMIT 11
#> 2: 181b8974-2288-4ea0-b7fb-d146daea61b8              select * from iris
#>        State StatementType WorkGroup UnloadDir
#> 1: SUCCEEDED           DML   primary          
#> 2: SUCCEEDED           DML   primary