R Shiny- Таблицы непредвиденных обстоятельств

Question

Мне не удается создать таблицу непредвиденных ситуаций в Shiny. Это приводит к тому, что оба столбца бок о бок, а не в перекрестной вкладке.

output$currtarget<-renderTable({ 

    currtgt<- cstable %>% 

     select(parent_id,tutor_id,status_name,first_name) #%>% 

     xtabs(as.formula(paste0("~",status_name,"+",first_name),currtgt) 

    }) 

Answer 1

Это случилось со мной, после обновления всех моих пакетов сегодня - на прошлой неделе он отлично работал. Не знаю, почему это изменилось, но это очень раздражает!

Во всяком случае, моим обходным путем было использование as.data.frame.matrix, а затем установить include.rownames=TRUE между фигурной скобкой и последней скобкой.

renderTable = ({ 
... 
my_tbl = addmargins(table(one_group, another_group)) 
printed_tbl = as.data.frame.matrix(my_tbl) 
print_tbl 
}, include.rownames=TRUE)