Create risk table
Examples
df <- data_param_table(pathogen = "marburg", exclude = c(15, 17))
#> Rows: 70 Columns: 55
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (26): parameter_data_id, parameter_type, parameter_unit, parameter_value...
#> dbl (18): article_id, parameter_value, parameter_lower_bound, parameter_uppe...
#> lgl (11): distribution_type, distribution_par1_value, distribution_par1_type...
#>
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
#> Rows: 58 Columns: 25
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (8): pathogen, first_author_first_name, article_title, doi, journal, no...
#> dbl (16): article_id, covidence_id, year_publication, volume, issue, page_fi...
#> lgl (1): paper_copy_only
#>
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
risk_table(df = df, pathogen = "marburg")
Outcome
Risk factor
Adjusted
Significant
Not significant
Infection
Contact with animal
Unknown
0
Infection
Gathering
Unknown
128
Infection
Household contact
Unknown
102
Infection
Occupation - Funeral and burial services
Unknown
102
Infection
Other
Unknown
102
26
Infection
Sex
Unknown
26
Seropositivity
Contact with animal
Adjusted
912
Seropositivity
Contact with animal
Unknown
300
Seropositivity
Gathering
Unknown
300
Seropositivity
Hospitalisation
Adjusted
915
Seropositivity
Household contact
Adjusted
912
Seropositivity
Occupation - Funeral and burial services
Adjusted
912