Merge pull request #41 from stemangiola/print_hotifx

Print hotifx

Author: stemangiola

DESCRIPTION

@@ -1,11 +1,11 @@
 Type: Package
 Package: tidySingleCellExperiment
 Title: Brings SingleCellExperiment to the Tidyverse 
-Version: 1.7.0
+Version: 1.7.2
 Authors@R: c(person("Stefano", "Mangiola", email = "[email protected]",
                   role = c("aut", "cre")) )
 Description: tidySingleCellExperiment is an adapter that abstracts the 'SingleCellExperiment' container 
-    in the form of tibble and allows the data manipulation, plotting and nesting using 'tidyverse' 
+    in the form of tibble and allows the data manipulation, plotting and nesting using 'tidyverse'.
 License: GPL-3
 Depends:
     R (>= 4.0.0),
@@ -27,6 +27,7 @@ Imports:
     S4Vectors,
     tidyselect,
     ellipsis,
+    vctrs,
     pillar,
     stringr,
     cli,

NAMESPACE

@@ -37,6 +37,7 @@ S3method(select,SingleCellExperiment)
 S3method(separate,SingleCellExperiment)
 S3method(slice,SingleCellExperiment)
 S3method(summarise,SingleCellExperiment)
+S3method(tbl_format_header,tidySingleCellExperiment)
 S3method(tidy,SingleCellExperiment)
 S3method(unite,SingleCellExperiment)
 S3method(unnest,tidySingleCellExperiment_nested)
@@ -72,6 +73,7 @@ export(select)
 export(separate)
 export(slice)
 export(summarise)
+export(tbl_format_header)
 export(tidy)
 export(unite)
 export(unnest)
@@ -114,9 +116,10 @@ importFrom(lifecycle,deprecate_warn)
 importFrom(magrittr,"%$%")
 importFrom(magrittr,"%>%")
 importFrom(methods,as)
-importFrom(pillar,extra_cols)
-importFrom(pillar,squeeze)
+importFrom(pillar,align)
+importFrom(pillar,get_extent)
 importFrom(pillar,style_subtle)
+importFrom(pillar,tbl_format_header)
 importFrom(plotly,plot_ly)
 importFrom(purrr,imap)
 importFrom(purrr,map)
@@ -141,7 +144,6 @@ importFrom(stringr,str_replace)
 importFrom(tibble,as_tibble)
 importFrom(tibble,enframe)
 importFrom(tibble,glimpse)
-importFrom(tibble,trunc_mat)
 importFrom(tidyr,extract)
 importFrom(tidyr,nest)
 importFrom(tidyr,pivot_longer)
@@ -152,3 +154,4 @@ importFrom(tidyr,unnest)
 importFrom(tidyselect,eval_select)
 importFrom(ttservice,join_features)
 importFrom(utils,tail)
+importFrom(vctrs,new_data_frame)

R/pillar_utilities.R

@@ -0,0 +1,26 @@
+NBSP <- "\U00A0"
+
+pillar___format_comment = function (x, width)
+{
+  if (length(x) == 0L) {
+    return(character())
+  }
+  map_chr(x, pillar___wrap, prefix = "# ", width = min(width, cli::console_width()))
+}
+
+#' @importFrom fansi strwrap_ctl
+pillar___strwrap2 = function (x, width, indent)
+{
+  fansi::strwrap_ctl(x, width = max(width, 0), indent = indent,
+                     exdent = indent + 2)
+}
+
+
+pillar___wrap = function (..., indent = 0, prefix = "", width)
+{
+  x <- paste0(..., collapse = "")
+  wrapped <- pillar___strwrap2(x, width - get_extent(prefix), indent)
+  wrapped <- paste0(prefix, wrapped)
+  wrapped <- gsub(NBSP, " ", wrapped)
+  paste0(wrapped, collapse = "\n")
+}