RMysqlにテーブルが存在するかどうかを確認する方法

Question

特定のデータベースにmysqlテーブルが存在するかどうかをShinyアプリで確認したいのですが、テーブルが存在しない場合、null値が返されます。私のコードは次のようになっています。

loadData <- function(){ 

db <- dbConnect(MySQL(), dbname = databaseName, host = host, 
       port = port, user = user, password = password) 

res <- dbSendQuery(db, "SELECT * FROM some_table") 
final_data <- dbFetch(res) 
dbDisconnect(db) 
return(final_data) 

} 

私はsome_tableがdatabseに存在しない場合dbSendQuery(db, "SELECT * FROM some_table")によってスローされた例外を処理します。 助けてください。

Answer 1

私はここにいます。もっと頑強で汎用性のあるものがあるかもしれません。

"show tables"をクエリとして使用し、結果にテーブル名が存在するかどうかを確認するだけです。

loadData <- function() { 
    db <- dbConnect(
    MySQL(), 
    dbname = databaseName, 
    host = host, 
    port = port, 
    user = user, 
    password = password 
) 

    rs <- dbSendQuery(con, "show tables") 
    table.frame <- fetch(rs, n = -1) 
    if ("some_table" %in% table.frame[, 1]) { 

    res <- dbSendQuery(db, "SELECT * FROM some_table") 
    final_data <- dbFetch(res) 
    dbDisconnect(db) 
    return(final_data) 

    } else { 
    return(NULL) 
    } 
} 

Answer 2

テーブルが存在しない場合、これはnullを返します。

... 
res <- dbSendQuery(db, "SELECT nullif(count(1),0) tableexists FROM information_schema.tables WHERE table_name='some_table'") 
... 

あなたはテーブルが存在するかどうかで場合にのみ関心がある場合はまた、INCLUDEとTABLE_SCHEMA =「あなたのスキーマ」したい場合があります1つの特定のスキーマ