Kết nối RODBC trở thành không hợp lệ

Question

Tôi đang thử nghiệm một hệ thống cơ sở dữ liệu mới bằng cách sử dụng trình điều khiển ODBC được cung cấp và gói RODBC.

Vấn đề tôi gặp phải là sau khi chỉ có một vài thắc mắc (tất cả trong khoảng thời gian 2 ~ 3 phút hoặc ít hơn), kết nối không còn được công nhận là hợp lệ bởi R.

Cụ thể, nó chỉ là một hàm C duy nhất trong gói RODBC, RODBCcheckchannel đang bị khiếu nại. Nó được gọi là gián tiếp bởi sqlQuery()

---

Dòng đầu tiên của cuộc gọi RODBC::sqlQuery

if (!odbcValidChannel(channel)) 
    stop("first argument is not an open RODBC channel") 

odbcValidChannelkiểm tra ba thuộc tính của channel.
Tôi có thể xác nhận rằng hai séc được thực hiện trong R trả lại TRUE.
Nó được kiểm tra cuối cùng, .Call(RODBC:::C_RODBCcheckchannel, channel, attr(channel, "id")) mà trả về mã FALSE

Nguồn RODBCcheckchannel như sau

SEXP RODBCcheckchannel(SEXP chan, SEXP id) 
{ 
    SEXP ptr = getAttrib(chan, install("handle_ptr")); 
    pRODBCHandle thisHandle = R_ExternalPtrAddr(ptr); 

    return ScalarLogical(thisHandle && TYPEOF(ptr) == EXTPTRSXP && 
     thisHandle->channel == asInteger(chan) && 
     thisHandle->id == asInteger(id)); 
} 

Tôi đã cố gắng sử dụng R -d valgrind, nhưng kể từ khi mã C không được đâm mỗi se, điều này không hữu ích.

Ai đó có thể làm sáng tỏ vì sao .Call(RODBC:::C_RODBCcheckchannel, channel, attr(channel, "id")) lợi nhuận TRUE cho một thời gian ngắn sau đó trả về FALSE?
Nó có liên quan gì đến tay cầm không?

(Xin lỗi cho việc thiếu exmample tái sản xuất, vì điều đó sẽ đòi hỏi quyền truy cập vào một hệ thống cơ sở dữ liệu rất cụ thể)

Answer 1

Bạn có thể thêm truy tìm đến đoạn mã sau? Nếu vậy, sẽ hữu ích khi in ra các giá trị cho thisHandle, TYPEOF (ptr), thisHandle-> channel, thisHandle-> id để xem những gì đã thay đổi?

SEXP RODBCcheckchannel(SEXP chan, SEXP id) 
{ 
    SEXP ptr = getAttrib(chan, install("handle_ptr")); 
    pRODBCHandle thisHandle = R_ExternalPtrAddr(ptr); 

    return ScalarLogical(thisHandle && TYPEOF(ptr) == EXTPTRSXP && 
     thisHandle->channel == asInteger(chan) &&thisHandle->id == asInteger(id)); 
}