based on above Garini's indication, please try below code, colcounts could be invisible:
leaf_paths <- col_paths(tbl6) for (pth in leaf_paths) { colcount_visible(tbl6, pth) <- FALSE } tbl6