Shiny에서 표를 출력할 때 Word에서 셀 합치기처럼 이용하고 싶었다. 아래와 같이 말이다.
R 화면에서는 어렵지 않게 했는데 Shiny에서 계속 막혔다. 코파일럿에게 여러 질문을 한 끝에 해결책을 찾았다.
다음의 2단계를 적용하면 Shiny에서도 깔끔하게 출력된다.
html_content = flextable::htmltools_value(dt2)
html_table = htmltools::HTML(as.character(html_content))