У меня есть 48 переменных, которые я хотел бы собрать во фрейм данных и отобразить в блестящем приложении в виде таблицы. Я создал 24 из них как таковые:
unkn1_count<-reactive({sample_tab_out_rm() %>% filter(Content == "Unkn-01")
%>% select(outliers) %>% is.na() %>% sum()})
Предполагается, что нужно подсчитать номер АН, чтобы сказать, можем ли мы сделать следующие шаги. Тогда у меня есть еще 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()})
При попытке отобразить его я получаю сообщение об ошибке в теме. Я не уверен, где я иду не так, если я честен. Я попытался выбрать первый элемент каждой переменной:
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]
)
})
Но это не помогает. У кого-нибудь есть какие-либо идеи? Спасибо за помощь
Best