Coerce summrt_summary object to a tibble

Coerce summrt_summary object to a tibble

# S3 method for class 'summrt_summary'
as_tibble(x, add_pkg_id = FALSE, ...)

Arguments

x

A summrt_summary object

add_pkg_id

Logical. Should the pkg field be included as a column.

...

ignored.

Value

A tibble::tibble()

Examples

ex <- readRDS(system.file(
  "extdata", "EpiEstim_example.rds", package = "summrt"
))
summ_ex <- summarize_rtestimate(ex)
as_tibble(summ_ex)
#> # A tibble: 60 × 4
#>     date median    lb    ub
#>    <int>  <dbl> <dbl> <dbl>
#>  1     2  10.4   6.45 15.7 
#>  2     3  22.4  17.6  28.0 
#>  3     4  18.5  15.8  21.4 
#>  4     5   8.75  7.68  9.92
#>  5     6   4.04  3.56  4.57
#>  6     7   2.81  2.50  3.14
#>  7     8   1.78  1.58  2.00
#>  8     9   1.54  1.37  1.71
#>  9    10   1.49  1.34  1.65
#> 10    11   1.28  1.15  1.42
#> # ℹ 50 more rows
as_tibble(summ_ex, add_pkg_id = TRUE)
#> # A tibble: 60 × 5
#>     date median    lb    ub package 
#>    <int>  <dbl> <dbl> <dbl> <chr>   
#>  1     2  10.4   6.45 15.7  EpiEstim
#>  2     3  22.4  17.6  28.0  EpiEstim
#>  3     4  18.5  15.8  21.4  EpiEstim
#>  4     5   8.75  7.68  9.92 EpiEstim
#>  5     6   4.04  3.56  4.57 EpiEstim
#>  6     7   2.81  2.50  3.14 EpiEstim
#>  7     8   1.78  1.58  2.00 EpiEstim
#>  8     9   1.54  1.37  1.71 EpiEstim
#>  9    10   1.49  1.34  1.65 EpiEstim
#> 10    11   1.28  1.15  1.42 EpiEstim
#> # ℹ 50 more rows