Close connection right after receiving query result

[PietrH]

etnservice/R/get_acoustic_receivers.R

Line 130 in 31d1a8e

# Close connection

etnservice/R/get_animals.R

Line 251 in 31d1a8e

DBI::dbDisconnect(connection)

The connection remains open slightly longer than needed, if the R session fails on the sorting, the connection will remain open.

[PietrH]

withr could be used to close the connection on a function exit (failure before the connection is closed). It could also be done via on.exit, but I'm less fond of this idea because you need to remember to update the queue for on.exit with ´add = TRUE´ or you'll overwrite the lot. There is also a nice helper in withr: ´local_db_connection()` that seems highly convenient.

Since withr is already an indirect dependency via vroom, I don't see much harm in it;

inbo/etnservice 0.6.0.9000 [new][bld][cmp]                            
├─arrow 24.0.0 [new][bld][cmp]
│ ├─assertthat 0.2.1 [new][bld]
│ ├─bit64 4.8.2 [new][bld][cmp]
│ │ └─bit 4.6.0 [new][bld][cmp]
│ ├─cpp11 0.5.5 [new][bld]
│ ├─glue 1.8.1 [new][bld][cmp]
│ ├─purrr 1.2.2 [new][bld][cmp]
│ │ ├─cli 3.6.6 [new][bld][cmp]
│ │ ├─lifecycle 1.0.5 [new][bld]
│ │ │ ├─cli
│ │ │ └─rlang 1.3.0 [new][bld][cmp][dl] (784.08 kB)
│ │ ├─magrittr 2.0.5 [new][bld][cmp]
│ │ ├─rlang
│ │ └─vctrs 0.7.3 [new][bld][cmp]
│ │   ├─cli
│ │   ├─glue
│ │   ├─lifecycle
│ │   └─rlang
│ ├─R6 2.6.1 [new][bld]
│ ├─rlang
│ ├─tidyselect 1.2.1 [new][bld][cmp]
│ │ ├─cli
│ │ ├─glue
│ │ ├─lifecycle
│ │ ├─rlang
│ │ ├─vctrs
│ │ └─withr 3.0.3 [new][bld]
│ └─vctrs
├─assertthat
├─DBI 1.3.0 [new][bld]
├─dplyr 1.2.1 [new][bld][cmp]
│ ├─cli
│ ├─generics 0.1.4 [new][bld]
│ ├─glue
│ ├─lifecycle
│ ├─magrittr
│ ├─pillar 1.11.1 [new][bld]
│ │ ├─cli
│ │ ├─glue
│ │ ├─lifecycle
│ │ ├─rlang
│ │ ├─utf8 1.2.6 [new][bld][cmp]
│ │ └─vctrs
│ ├─R6
│ ├─rlang
│ ├─tibble 3.3.1 [new][bld][cmp]
│ │ ├─cli
│ │ ├─lifecycle
│ │ ├─magrittr
│ │ ├─pillar
│ │ ├─pkgconfig 2.0.3 [new][bld]
│ │ ├─rlang
│ │ └─vctrs
│ ├─tidyselect
│ └─vctrs
├─glue
├─httr 1.4.8 [new][bld]
│ ├─curl 7.1.0 [new][bld][cmp]
│ ├─jsonlite 2.0.0 [new][bld][cmp]
│ ├─mime 0.13 [new][bld][cmp]
│ ├─openssl 2.4.2 [new][bld][cmp][dl] (1.18 MB)
│ │ └─askpass 1.2.1 [new][bld][cmp]
│ │   └─sys 3.4.3 [new][bld][cmp]
│ └─R6
├─lubridate 1.9.5 [new][bld][cmp]
│ ├─generics
│ └─timechange 0.4.0 [new][bld][cmp]
│   └─cpp11
├─odbc 1.7.0 [new][bld][cmp][dl] (367.76 kB)
│ ├─bit64
│ ├─blob 1.3.0 [new][bld]
│ │ ├─rlang
│ │ └─vctrs
│ ├─cli
│ ├─DBI
│ ├─hms 1.1.4 [new][bld]
│ │ ├─cli
│ │ ├─lifecycle
│ │ ├─pkgconfig
│ │ ├─rlang
│ │ └─vctrs
│ ├─lifecycle
│ ├─Rcpp 1.1.2 [new][bld][cmp][dl] (1.89 MB)
│ ├─rlang
│ └─vctrs
├─readr 2.2.0 [new][bld][cmp]
│ ├─cli
│ ├─clipr 0.8.1 [new][bld]
│ ├─cpp11
│ ├─crayon 1.5.3 [new][bld]
│ ├─glue
│ ├─hms
│ ├─lifecycle
│ ├─R6
│ ├─rlang
│ ├─tibble
│ ├─tzdb 0.5.0 [new][bld][cmp]
│ │ └─cpp11
│ ├─vroom 1.7.1 [new][bld][cmp]
│ │ ├─bit64
│ │ ├─cli
│ │ ├─cpp11
│ │ ├─crayon
│ │ ├─glue
│ │ ├─hms
│ │ ├─lifecycle
│ │ ├─progress 1.2.3 [new][bld]
│ │ │ ├─crayon
│ │ │ ├─hms
│ │ │ ├─prettyunits 1.2.0 [new][bld]
│ │ │ └─R6
│ │ ├─rlang
│ │ ├─tibble
│ │ ├─tidyselect
│ │ ├─tzdb
│ │ ├─vctrs
│ │ └─withr
│ └─withr
├─rlang
└─stringr 1.6.0 [new][bld]
  ├─cli
  ├─glue
  ├─lifecycle
  ├─magrittr
  ├─rlang
  ├─stringi 1.8.7 [new][bld][cmp]
  └─vctrs

Key:  [new] new | [dl] download | [bld] build | [cmp] compile