Я работаю над блестящим приложением и хочу объединить эти два файла, которые я конвертировал в числовую форму c.
См. Мой код ниже:
g_t1 <-reactive({
subset(merge_cli_mi(),select=c(er,t))
})
g_t2 <-reactive({ lapply(g_t1(),as.factor)
})
g_t3 <-reactive({ lapply(g_t2(),as.numeric)
})
output$t1<-renderTable({
g_t3()
})
g_t11 <-reactive({
subset(merge_cli_mi(),select=-c(er,t))
})
g_t21 <-reactive({ lapply(g_t11(),as.factor)
})
g_t31 <-reactive({ lapply(g_t11(),as.numeric)
})
output$t11<-renderTable({
g_t31()
})
merge_cli_mi_gt13<-reactive({
cbind(g_t31(),g_t3())
})
output$merge_cli_mi13<-renderTable({
merge_cli_mi_gt13()
})
Но пока Выполнение Я получил сообщение об ошибке «количество заменяемых элементов не кратно длине замены». Я не знаю, почему я получаю эту ошибку. Как я могу решить и объединить оба фрейма данных?