Extracting proportions from `data_tabulate()`

[profandyfield]

Is there a mechanism for extracting the proportions from a data_tabulate() object? This would be useful for report writing/automating reports.

For example, I have a contingency table to which I add column proportions:

dance_tib <- discovr::cat_dance
prop_dance <- dance_tib |>
  datawizard::data_tabulate(select = "training", by = "dance", proportions = "column", remove_na = TRUE)

# display the table
prop_dance |> 
  insight::display()

training	No	Yes	Total
Food	10 (8.1%)	28 (36.8%)	38
Affection	114 (91.9%)	48 (63.2%)	162
Total	124	76	200

^{Created on 2025-09-17 with reprex v2.1.1}

Let's say I want to report these proportions in my automated quarto doc as either the raw proportions or percentages, it'd be handy to extract them directly from prop_dance. I've tried as.table() and as.data.frame() but these return only the frequencies and prop_dance itself appears to be a printed object so stores no info. Is there an easystats function that will extract the proportions for me? Better still, could data_tabulate() be changed so that it creates an object that stores the info in the table and format_table()/display()/print_md() etc are the mechanisms through which the information is then formatted/printed?

[strengejacke]

dance_tib <- discovr::cat_dance
prop_dance <- dance_tib |>
  datawizard::data_tabulate(
    select = "training",
    by = "dance",
    proportions = "column",
    remove_na = TRUE
  )

datawizard::as.prop.table(prop_dance)
#> [[1]]
#>                   No        Yes
#> Food      0.08064516 0.36842105
#> Affection 0.91935484 0.63157895

datawizard::as.prop.table(prop_dance, simplify = TRUE)
#>                   No        Yes
#> Food      0.08064516 0.36842105
#> Affection 0.91935484 0.63157895


prop_dance <- dance_tib |>
  datawizard::data_tabulate(
    select = "training",
    by = "dance",
    proportions = "column",
    remove_na = FALSE
  )

datawizard::as.prop.table(prop_dance)
#> Removing NA values from frequency table.
#> [[1]]
#>                   No        Yes
#> Food      0.08064516 0.36842105
#> Affection 0.91935484 0.63157895

datawizard::as.prop.table(prop_dance, simplify = TRUE)
#> Removing NA values from frequency table.
#>                   No        Yes
#> Food      0.08064516 0.36842105
#> Affection 0.91935484 0.63157895

datawizard::as.prop.table(prop_dance, simplify = TRUE, remove_na = FALSE)
#>                   No        Yes         NA
#> Food      0.08064516 0.36842105 0.00000000
#> Affection 0.91935484 0.63157895 0.00000000
#> NA        0.00000000 0.00000000 0.00000000


prop_dance <- dance_tib |>
  datawizard::data_tabulate(
    select = "training",
    by = "dance",
    remove_na = FALSE
  )

datawizard::as.prop.table(prop_dance)
#> Warning: No proportions available.
#> [[1]]
#> NULL

^{Created on 2025-10-02 with reprex v2.1.1}