R/z_finalize_tab.R

In surveytable: Streamlining Complex Survey Estimation and Reliability Assessment in R

.finalize_tab = function(df1) {
  assert_that(is.data.frame(df1))

  txt = attr(df1, "title")
  txt = paste0(txt, " {", getOption('surveytable.survey_label'), "}")
  attr(df1, "title") = txt
  rownames(df1) = NULL
  class(df1) = c("surveytable_table", "data.frame")
  df1
}