R/tdClose.R

In nonsleepr/teradataR: Teradata R Package

Defines functions tdClose

Documented in tdClose

tdClose <- function(x = tdConnection) {
    if (class(tdConnection) == "RODBC") 
        close(x)
    if (class(tdConnection) == "JDBCConnection") 
        dbDisconnect(x)
}