Commit e535b5a3 authored by houyun's avatar houyun
Browse files

keep class info when md is corr data

parent 8c9854ba

R/as-md-tbl.R

+3 −0
Original line number Diff line number Diff line
@@ -36,6 +36,9 @@ as_md_tbl.matrix_data <- function(x, ...) 
                      type = type,

                      diag = diag,

                      class = c("md_tbl", "tbl_df", "tbl", "data.frame"))

  if (inherits(x, "cor_matrix_data")) {

    class(md_tbl) <- c("cor_md_tbl", class(md_tbl))

  }

  if(type == "upper") {

    extract_upper(md_tbl, diag = diag)

  } else if(type == "lower") {

CRA Git | Maintained and supported by SUSTech CRA and CCSE