shiny - 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)