RODBC with shiny error

Question

我想連接到Access數據庫，在textInput中引入URL。

服務器代碼如下：

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() 

    }) 
} 

，我得到了如下錯誤：

Error: first argument is not an open RODBC channel 

我這樣做的地方。

感謝

Answer 1

由於Benjammin注：

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() 

    }) 
    } 

輸入$文本是文件路徑訪問DDBB。