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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.