.df_to_list_of_lists

Convert a nested dataframe to a multilevel list

internal

Provides an interface to the 'SurvStat' web service from the
Robert Koch Institute (<https://tools.rki.de/SurvStat/SurvStatWebService.svc>)
allowing downloads of disease time series stratified
by pathogen type and subtype, age, and geography from notifiable disease
reports in Germany.

Robert Challen

rsurvstat

Download Infectious Disease Data from 'SurvStat' (Robert Koch
Institute)

Bristol Vaccine Centre 

.df_to_list_of_lists function

<dl><dt>df</dt>
<dd>a nested dataframe</dd>
<dt>...</dt>
<dd>Named arguments passed on to <code>.transpose</code><dl>
 <dt><code>x</code></dt>
<dd>a <code>data.frame</code> or <code>row_list</code></dd></dl></dd><dt><code>.fix</code></dt>
<dd>collapse or expand names in redundant multi-level <code>row_list</code>s.
Either <code>FALSE</code> or a string to join or split the names of the multi-level
list by</dd><dt><code>...</code></dt>
<dd>not used</dd>
</dl>

Arguments

<div class="sourceCode"></div><pre><code>
iris_list = .df_to_list_of_lists(datasets::iris)
# TODO: iris_list has lost Petal.Length as it is interpreting Petal.Width as
# nested item and it overwrites Petal.Length rather than merging with it.testthat::expect_equal(
 iris_list[[1]]$Species,
 iris$Species[[1]]
)mtcars_nest = datasets::mtcars 
 dplyr::mutate(name = rownames(.)) 
 tidyr::nest(details = -c(cyl,gear))mtcars_list = mtcars_nest mtcars_unnest = mtcars_list testthat::expect_equal(
 mtcars_list[[1]]$details[[1]]$name,
 mtcars_nest$details[[1]]$name[[1]]
)</code></pre>

Unit tests

Convert a nested dataframe to a multilevel list — .df_to_list_of_lists

<dl>

<dt>df</dt>
<dd>a nested dataframe</dd>


<dt>...</dt>
<dd>Named arguments passed on to <code>.transpose</code><dl>
 <dt><code>x</code></dt>
<dd>a <code>data.frame</code> or <code>row_list</code></dd>

<dt><code>.fix</code></dt>
<dd>collapse or expand names in redundant multi-level <code>row_list</code>s.
Either <code>FALSE</code> or a string to join or split the names of the multi-level
list by</dd>

<dt><code>...</code></dt>
<dd>not used</dd>


</dl></dd>

</dl>

<div class="sourceCode"><pre><code>


iris_list = .df_to_list_of_lists(datasets::iris)
# TODO: iris_list has lost Petal.Length as it is interpreting Petal.Width as
# nested item and it overwrites Petal.Length rather than merging with it.

testthat::expect_equal(
 iris_list[[1]]$Species,
 iris$Species[[1]]
)

mtcars_nest = datasets::mtcars 
 dplyr::mutate(name = rownames(.)) 
 tidyr::nest(details = -c(cyl,gear))

mtcars_list = mtcars_nest 

mtcars_unnest = mtcars_list 

testthat::expect_equal(
 mtcars_list[[1]]$details[[1]]$name,
 mtcars_nest$details[[1]]$name[[1]]
)

</code></pre></div>

.df_to_list_of_lists: Convert a nested dataframe to a multilevel list

Description

Usage

Value

Arguments

Unit tests