data_summary() works with bayestestR::ci()

[strengejacke]

library(datawizard)
data_summary(mtcars, ci = bayestestR::ci(mpg), by = c("am", "gear"))
#> am | gear |         95% CI
#> --------------------------
#>  0 |    3 | [10.40, 21.46]
#>  0 |    4 | [17.91, 24.28]
#>  1 |    4 | [21.00, 33.64]
#>  1 |    5 | [15.08, 29.96]

^{Created on 2024-03-03 with reprex v2.1.0}

[codecov]

Codecov Report

Attention: Patch coverage is 50.00000% with 4 lines in your changes are missing coverage. Please review.

Project coverage is 90.60%. Comparing base (26ca506) to head (4e0feb5).

Files	Patch %	Lines
R/data_summary.R	50.00%	4 Missing ⚠️

Additional details and impacted files

@@            Coverage Diff             @@
##             main     #483      +/-   ##
==========================================
- Coverage   90.66%   90.60%   -0.06%     
==========================================
  Files          74       74              
  Lines        5765     5771       +6     
==========================================
+ Hits         5227     5229       +2     
- Misses        538      542       +4     

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.

[strengejacke]

@easystats/core-team Do we want to merge this? @DominiqueMakowski ?
It's a special case, we may extend this to other functions in the future if necessary, but for now, it might be enough? I think Dom asked for this feature somewhere...

[IndrajeetPatil]

I have no strong opinion either way.

[etiennebacher]

I don't know if you want to wait for other feedback from the team but this is fine for me, I just have a couple of minor comments.

[strengejacke]

Haha, meanwhile we have added this code:

  # check for correct length of output - must be a single value!
  if (any(lengths(out) != 1)) {
    insight::format_error(
      paste0(
        "Each expression must return a single value. Following expression",
        ifelse(sum(lengths(out) != 1) > 1, "s", " "),
        " returned more than one value: ",
        text_concatenate(vapply(dots[lengths(out) != 1], insight::safe_deparse, character(1)), enclose = "\"")
      )
    )
  }

and this PR doesn't work anymore. Let me try to fix this.