Shiny R: Excel文件输入到数据表输出(在数据表中输入)

Question

我是相当新的闪亮，我想有一个表的数据从文件输入，其中在第一列的值可以从某些选项中选择。这适用于非文件输入的数据。

在UI部分，我接受文件输入和输出:

fileinput('file1','Data')
DT::dataTableOutput("ruless")

那么下面的工作:

values <- reactiveValues(data = NULL)
values$data <- as.data.frame(
cbind(c("a", "d", "b", "c", "e", "f"),
c(1463, 159, 54, 52, 52, 220),
c(0.7315, 0.0795, 0.027, 0.026, 0.026, 0.11)
)
)

shinyInput = function(FUN, len, id, ...) {
inputs = character(len)
for (i in seq_len(len)) {
inputs[i] = as.character(FUN(paste0(id, i), label = NULL, choices = c("Cylinders" = "cyl",
"Transmission" = "am")))
}
inputs
}

output$ruless <- DT::renderDataTable({
datatable(
data.frame(Choose=shinyInput(selectInput,nrow(values$data),"cbox_"), values$data)
)
)
})

但是现在我想对来自文件输入的数据做同样的事情。我尝试了以下操作:

data3 <- reactive({
inFile <- input$file1
if (is.null(inFile)) { return(NULL) }    
dataFile <- read_excel(inFile$datapath,sheet=1)
return(dataFile)
})

然后使用data3代替values$data或也尝试values$data <- as.data.frame(data3)然而，我总是得到错误信息:

Error in as.data.frame.default(data3): cannot coerce class ‘c("reactiveExpr", "reactive", "function")’ to a data.frame

我能做什么?

Answer 1

当您尝试使用data3时，您是否需要将其称为data3()，因为它是一个响应式数据集?