# if (dbExistsTable(con, "gamelogs")) {
# dbRemoveTable(con, "gamelogs")
# }
#
# con |>
# dbWriteTable(
# name = "gamelogs", # Ensures compatibility with reserved words or case sensitivity
# value = gl2012,
# append = FALSE,
# field.types = c(
# CompletionInfo = "VARCHAR(50)",
# AdditionalInfo = "VARCHAR(255)",
# HomeBatting1Name = "VARCHAR(50)",
# HomeBatting2Name = "VARCHAR(50)",
# HomeBatting3Name = "VARCHAR(50)",
# HomeBatting4Name = "VARCHAR(50)",
# HomeBatting5Name = "VARCHAR(50)",
# HomeBatting6Name = "VARCHAR(50)",
# HomeBatting7Name = "VARCHAR(50)",
# HomeBatting8Name = "VARCHAR(50)",
# HomeBatting9Name = "VARCHAR(50)",
# HomeManagerName = "VARCHAR(50)",
# VisitorStartingPitcherName = "VARCHAR(50)",
# VisitorBatting1Name = "VARCHAR(50)",
# VisitorBatting2Name = "VARCHAR(50)",
# VisitorBatting3Name = "VARCHAR(50)",
# VisitorBatting4Name = "VARCHAR(50)",
# VisitorBatting5Name = "VARCHAR(50)",
# VisitorBatting6Name = "VARCHAR(50)",
# VisitorBatting7Name = "VARCHAR(50)",
# VisitorBatting8Name = "VARCHAR(50)",
# VisitorBatting9Name = "VARCHAR(50)",
# VisitorManagerName = "VARCHAR(50)",
# HomeLineScore = "VARCHAR(30)",
# VisitorLineScore = "VARCHAR(30)",
# SavingPitcherName = "VARCHAR(50)",
# ForfeitInfo = "VARCHAR(10)",
# ProtestInfo = "VARCHAR(10)",
# UmpireLFID = "VARCHAR(8)",
# UmpireRFID = "VARCHAR(8)",
# UmpireLFName = "VARCHAR(50)",
# UmpireRFName = "VARCHAR(50)"
# )
# )
# verify if the data resides in MySQL server
# gamelogs <- con |>
# tbl("gamelogs")