R/check_lock_tables.R

In gogonzo/oddsandsods: Miscellanous functions

#' @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()

}