#' @export
checkLockedTables <- function(con, tables_list){
processes <- customQuery({"show processlist;"})
tables_list_regexp <- paste(tables_list, collapse="|")
grepl( tables_list_regexp,processes$Command ) %>%
any( ) %>%
return()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.