R有光泽：读取文件交互性（数据框）

Question

我有一个目录中的文件列表，我想通过R shinny在图形中显示每个文件的信息。我使用list.files函数然后使用变量i在文件中循环。使用闪亮，我会使用i作为交互变量。所以我尝试了类似的东西：

Server.R
shinyServer(function(input, output) {

data=reactive({
data=read.table(list.files(directory)[input$i])
data
})

output$Plot <- renderPlot({
    plot(data()["variable1"],data()["variable2"]])
})

UI.R

shinyUI(pageWithSidebar(
 sidebarPanel(
numericInput("i", "Indice:",
                min = 1, max = length(list.files(directory)), value = 1)

              )
 mainPanel(
   plotOutput("Plot")
    )
))

它适用于i = 1，但是当我选择另一个i值时它会停止工作（屏幕变为灰色）。我相信错误的形式是我正在使用数据框，有人可以帮助我吗？

谢谢