Question

伙计们，我是Shiny的新手，在这里我面临R与闪亮翻译的问题，我正在使用SelectInput将teacher_ID作为输入来过滤sever.r上相应的学生数据。 Data looks like this 以下代码工作正常。

library(shiny)

x <- fluidPage("this is fluid page", 
           selectInput("Selecter","slide to select",choices = ID$Teacher_ID, 
selected = "1003935242" ),
          tableOutput("data")
  ################### server.r #################
)
shinyServer(function(input, output) 
output$data = renderTable({
  TeachersData[TeachersData$Teacher_ID==input$Selecter,]
}) 
})

但是在下面我添加更多代码，实际使用anova，kruskal等在RenderTable（）块中实际计算统计值，如下所示，我收到错误消息

错误：所有观察都在同一组

***，我尝试通过拆分和创建具有因子和其他一些东西的组来解决，但无法解决。在代码中没有问题，似乎用闪亮的方式对数据进行问题处理。

   ############ server.r problematic ##########

shinyServer(function(input, output) {

output$data = renderTable({

  Instro = TeachersData[TeachersData$Teacher_ID==input$Selecter,]
  Data_Procedure1= Instro 
  Data_Procedure1$Score=as.numeric(as.character(Data_Procedure1$Score))
  Data_Procedure1_ByCourse=Subset_Data_ByCourse_fct(Data_Procedure1)
  ANOVA_Procedure1= Compare_ANOVA_Procedure1_fct(Data_Procedure1, 
  Data_Procedure1$Score, as.factor(Data_Procedure1$Course_ID), alpha)
  p_Procedure1 = ANOVA_Procedure1$p_value
  Method_Procedure1= ANOVA_Procedure1$test_name
  PairWise_Compare_Procedure1=Pairwise_Comparison_fct(Method_Procedure1, 
  Data_Procedure1, Data_Procedure1$Score, 
  as.factor(Data_Procedure1$Course_ID ))
  result <- as.data.frame(PairWise_Compare_Procedure1)
})

})

Error message

请有人帮忙弄清楚，非常感谢你。

Answer 1

首先，这个'ID $ Teacher_ID'加载好吗？ UI上显示的选项是什么？有时这可能是个问题。

其次，如果我理解你的问题，你应该改变这个：

Object[]

到此：

TeachersData[TeachersData$Teacher_ID==input$slide,]

如果那不是问题，也许你应该展示什么是输入$ slide？

Answer 2

感谢@Ricardo提供帮助，但问题还不错。进一步挖掘后，我发现数据集存在问题。因为当我过滤数据时，一些Teacher_ID的数据中只有单个记录而没有进一步的子分组，统计模型无法捕获那些Teacher_ID的观察结果，并抛出了将所有观察结果放在同一组中的错误。因此，当我过滤掉这种不具有统计意义的数据后，现在一切正常。

错误：所有观察都在同一组中，同时从闪亮的ui列表中动态过滤R模型

2 个答案: