---
title: "Introduction to splutil"
author: "Richard Aubrey White"
date: "2022-04-28"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Introduction to splutil}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

## Splitting

```{r}
splutil::easy_split(letters[1:20], size_of_each_group = 3)
splutil::easy_split(letters[1:20], number_of_groups = 3)
```

## Unnesting data.frames

```{r}
x <- list(
  list(
    "a" = data.frame("v1"=1),
    "b" = data.frame("v2"=3)
  ),
  list(
    "a" = data.frame("v1"=10),
    "b" = data.frame("v2"=30),
    "d" = data.frame("v3"=50)
  )
)
print(x)
splutil::unnest_dfs_within_list_of_fully_named_lists(x)
```

## Describing lists

```{r}
splutil::is_fully_named_list(list(1))
splutil::is_fully_named_list(list("a"=1))

splutil::is_all_list_elements_null_or_df(list(data.frame()))
splutil::is_all_list_elements_null_or_df(list(1, NULL))

splutil::is_all_list_elements_null_or_list(list(1, NULL))
splutil::is_all_list_elements_null_or_list(list(list(), NULL))

splutil::is_all_list_elements_null_or_fully_named_list(list(list(), NULL))
splutil::is_all_list_elements_null_or_fully_named_list(list(list("a" = 1), NULL))
```