.list_of_lists_to_df

Convert a multilevel list to a nested dataframe

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 

.list_of_lists_to_df function

<dl><dt>lst</dt>
<dd>a multilevel list</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(iris, .fix=FALSE)
iris2 = .list_of_lists_to_df(iris_list, .fix=FALSE)testthat::expect_equal(datasets::iris, as.data.frame(iris2))mtcars_nest = datasets::mtcars 
 dplyr::mutate(name = rownames(.)) 
 tidyr::nest(details = -c(cyl,gear))mtcars_list = mtcars_nest mtcars_nest2 = mtcars_list testthat::expect_equal(
 mtcars_nest2$details[[2]],
 mtcars_nest$details[[2]]
)# test unequal length vector column is mapped to list of vectors
# and multiply named nests are treated as rows
testlist = list(
 row = list(a=1:5, b="x"),
 row = list(a=2:4, b="y"),
 row = list(a=3, b="z")
)
testdf = testlist 
testthat::expect_equal(testdf$b, c("x", "y", "z"))
testthat::expect_equal(testdf$a[[2]], 2:4)</code></pre>

Unit tests

Convert a multilevel list to a nested dataframe — .list_of_lists_to_df

<dl>

<dt>lst</dt>
<dd>a multilevel list</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(iris, .fix=FALSE)
iris2 = .list_of_lists_to_df(iris_list, .fix=FALSE)

testthat::expect_equal(datasets::iris, as.data.frame(iris2))

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

mtcars_list = mtcars_nest 

mtcars_nest2 = mtcars_list 

testthat::expect_equal(
 mtcars_nest2$details[[2]],
 mtcars_nest$details[[2]]
)

# test unequal length vector column is mapped to list of vectors
# and multiply named nests are treated as rows
testlist = list(
 row = list(a=1:5, b="x"),
 row = list(a=2:4, b="y"),
 row = list(a=3, b="z")
)
testdf = testlist 
testthat::expect_equal(testdf$b, c("x", "y", "z"))
testthat::expect_equal(testdf$a[[2]], 2:4)

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

.list_of_lists_to_df: Convert a multilevel list to a nested dataframe

Description

Usage

Value

Arguments

Unit tests