在Shiny中获取格式错误的输出

Question

有一个在Shiny服务器函数中读取的数据文件。我想显示用户使用下拉菜单选择的两列的频率表。我收到错误“范围0的表”。我看过R错误-范围0的表并且无法解决表问题，但我已正确导入数据并且列名也匹配。在控制台中运行同一行代码。

这是我的代码：

shinyServer(function(input, output) {
  output$courseData = renderTable( {


    data = read.csv(file = 'FourCourseTableLetterGrades_POLISHED.tsv', sep = '\t', header = TRUE)
    c1 = input$course1
    c2 = input$course2
    tbl = table(data[[c1]], data[[c2]])
    tbl

 }

)
}

)

这是现在输出的样子：

我希望它就像您在控制台中运行相同代码时得到的输出一样。像这样：

我的代码有什么问题？另外，我不知道名称Var1，Var2和Freq的来源以及应该在哪里更改。

Answer 1

AssemblyRef将在将其输入到UI之前更改对数据框的任何输入，因此最终得到类似renderTable的信息。我们可以尝试

data.frame(table(mtcars$cyl, mtcars$gear))