tests/testthat/test_z_teardown.R

In mablab/rpostgisLT: Managing Animal Movement Data with 'PostGIS' and R

if(can_con(conn_empty)) {
    # try(RPostgreSQL::dbSendQuery(conn_empty,
    #                              paste(
    #                                  "SET log_error_verbosity TO",
    #                                  DBI::dbQuoteString(pg_verbosity)
    #                              )),
    #     silent = TRUE)
    # Clean up
    try(suppressMessages(
        rpostgis::dbDrop(
            conn_empty,
            "traj_min",
            type = "schema",
            cascade = TRUE,
            display = FALSE
        )
    ),
    silent = TRUE)
    
    try(suppressMessages(
        rpostgis::dbDrop(
            conn_empty,
            "traj",
            type = "schema",
            cascade = TRUE,
            display = FALSE
        )
    ),
    silent = TRUE)
    
    try(rpostgis::dbDrop(
        conn_empty,
        "type_I",
        type = "schema",
        cascade = TRUE,
        display = FALSE
    ),
    silent = TRUE)
    
    try(RPostgreSQL::dbDisconnect(conn_empty))
}

if (can_con(conn_data)) {
    try(rpostgis::dbDrop(
        conn_data,
        "traj_db_t1",
        type = "schema",
        cascade = TRUE,
        display = FALSE
    ),
    silent = TRUE)
    
    try(rpostgis::dbDrop(
        conn_data,
        "traj_db_t2",
        type = "schema",
        cascade = TRUE,
        display = FALSE
    ),
    silent = TRUE)
    
    try(rpostgis::dbDrop(
        conn_data,
        "traj_t2",
        type = "schema",
        cascade = TRUE,
        display = FALSE
    ),
    silent = TRUE)
    
    try(rpostgis::dbDrop(
        conn_data,
        "traj_t3",
        type = "schema",
        cascade = TRUE,
        display = FALSE
    ),
    silent = TRUE)
    
    try(rpostgis::dbDrop(
        conn_data,
        "traj",
        type = "schema",
        cascade = TRUE,
        display = FALSE
    ),
    silent = TRUE)
    
    # try(rpostgis::dbDrop(
    #     conn_data,
    #     "ibex_traj_materialized_bursts",
    #     type = "schema",
    #     cascade = TRUE,
    #     display = FALSE
    # ),
    # silent = TRUE)
    
    try(RPostgreSQL::dbDisconnect(conn_data))
}