RODBC mit glänzenden Fehler

Question

Ich möchte eine Verbindung zur Access-Datenbank herstellen die Einführung der URL in einem TextInput.

der Server-Code ist wie folgt:

function(input, output) { 

    dataframe <- eventReactive(input$do, { 

    db <- renderPrint({ input$text }) 

    con <- odbcConnectAccess(db()) 
    info <- sqlTables(channel = con, tableType = "TABLE")$TABLE_NAME 

    info 
    }) 

    output$table <- renderTable({ 
    dataframe() 

    }) 
} 

und ich erhalte die folgenden Fehler:

Error: first argument is not an open RODBC channel 

ich es in lokalen tue.

Dank

Answer 1

Als Benjammin Anmerkung:

server.R

function(input, output) { 

     dataframe <- eventReactive(input$do, { 

     con <- odbcConnectAccess(input$text) 
     info <- sqlTables(channel = con, tableType = "TABLE")$TABLE_NAME 
     info 

    }) 

    output$table <- renderTable({ 
     dataframe() 

    }) 
    } 

Eingang $ Text ist der Dateipfad zum Access DDBB.