Блог

Добрый день, товарищи. У меня есть вопрос о дизайне в приложении FlesDashBoard.

После импорта довольно большого объема данных в мое приложение и загрузки их в интерактивную переменную я хотел бы управлять ими и красиво отображать их в таблице.

Я определил приблизительный вид этой таблицы в Excel (большой GIF). Теперь осталось выяснить, как «перенести» его в приложение FlexDashBoard.

Конечно, я пытался импортировать данные с помощью стандартного DT, но я не могу понять, как придать им желаемый вид.

 renderDT(fillContainer = TRUE,{
      data <- dataset()
      data$DT1
      })
 

Я также пытался использовать HTML, но это объект без динамики.

 htmlTable(x=MyTable,
              header=list_cols_names_2,
              rnames=list_rows_names_2,
              rowlabel=rowlabel_x,
              caption = "My beautifull and perfect caption",
              tfoot="My beautifull and perfect footer",
              label="My Table one",
              n.rgroup=c(2,3,2),
              rgroup =c("The group is called long 1",
                        "The group is called long 2",
                        "The group is called long 3","Ещё"),
              n.cgroup=c(2),
              cgroup =c("2008", "2009"),
              n.tspanner=c(2,3,5),
              tspanner = c("This is a long line with headers 1",
                           "This is a long line with headers 2",
                           "This is a long line with headers 3"
              ),
              total = "tspanner",
              ctable=TRUE,
              #compatibility = ('mso-number-format:"@"')
              cspan.rgroup = c(2,2,3)
              
    )
 

Не могли бы вы, пожалуйста, рассказать мне, как добиться желаемого эффекта?