Question

我有48个变量，希望将它们汇总到一个数据框中，并在闪亮的应用程序中以表格形式显示。我已经创建了其中的24个：

unkn1_count<-reactive({sample_tab_out_rm() %>% filter(Content == "Unkn-01") 
%>% select(outliers) %>% is.na() %>% sum()})

应该计算出NA编号以告诉我是否可以进行下一步。然后我还有另外24个变量：

unkn1_cv<-reactive({sample_tab_out_rm() %>% 
filter(Content == "Unkn-01") %>% select(outliers) })

然后：

 unkn1_cv1 <- reactive({
if(unkn1_count()[1] < 2){sapply(unkn1_cv(), cv, na.rm = TRUE)}
else {print(NA)}})

要做的是检查是否少于2个NA，而不是继续进行，否则我们无法执行操作，而只打印NA。

到目前为止，它的行为完全符合我的预期。现在，我想将变量收集为数据框，以显示在闪亮的应用程序的表中：

unkn_cv<-reactive({data.frame(unkn1_cv1(), unkn2_cv1(), unkn3_cv1(), 
unkn4_cv1(), unkn5_cv1(), unkn6_cv1(), 
unkn7_cv1(), unkn8_cv1(), unkn9_cv1(), unkn10_cv1(), unkn11_cv1(), 
unkn12_cv1(), unkn13_cv1(), unkn14_cv1(), unkn15_cv1(), unkn16_cv1(), 
unkn17_cv1(), unkn18_cv1(), 
unkn19_cv1(), unkn20_cv1(), unkn21_cv1(), unkn22_cv1(), unkn23_cv1(), 
unkn24_cv1()
            )
             })

output$std1_g1<-renderTable({unkn_cv()})

尝试显示它时，出现主题错误。老实说，我不确定我要去哪里。我尝试选择每个var的第一个元素：

unkn_cv<-reactive({data.frame(unkn1_cv1()[1], unkn2_cv1()[1], unkn3_cv1() 
[1], 
unkn4_cv1()[1], unkn5_cv1()[1], unkn6_cv1()[1], 
unkn7_cv1()[1], unkn8_cv1()[1], unkn9_cv1()[1], unkn10_cv1()[1], 
unkn11_cv1()[1], 
unkn12_cv1()[1], unkn13_cv1()[1], unkn14_cv1()[1], unkn15_cv1()[1], 
unkn16_cv1()[1], 
unkn17_cv1()[1], unkn18_cv1()[1], 
unkn19_cv1()[1], unkn20_cv1()[1], unkn21_cv1()[1], unkn22_cv1()[1], 
unkn23_cv1()[1], 
unkn24_cv1()[1]
            )
             })

但这没有帮助。有人有什么想法吗？谢谢您的所有帮助

最佳

闪亮-创建数据框会产生错误：缺少需要TRUE / FALSE的值

0 个答案: