diff --git a/R/driver-db2.R b/R/driver-db2.R index c325c592..9ec8c4bb 100644 --- a/R/driver-db2.R +++ b/R/driver-db2.R @@ -67,8 +67,10 @@ setMethod("odbcConnectionTables", c("DB2/AIX64", "character"), "WHERE 1 = 1 ", qTable, qSchema) tryCatch({ dfTempTables <- dbGetQuery(conn, query) - # NULL as colname is not well liked by DB2 it seems. Hack here. - dfTempTables$table_remarks <- NA_character_ + # NULL as colname is not well liked by DB2 it seems. Hack here. (#905). + if (nrow(dfTempTables) > 0) { + dfTempTables$table_remarks <- NA_character_ + } }, odbc_database_error = function(e) { cli::cli_warn("Unable to query for temporary tables in SYSIBMADM.ADMINTEMPTABLES") })