Check if "weights" exists for vector-method

[strengejacke]

data(efc, package = "datawizard")
set.seed(123)
efc$weights <- abs(rnorm(n = nrow(efc), mean = 1, sd = 0.5))
# did not throw an error, but returned unweighted table
data_tabulate(efc$c172code, weights = efc$wweight)

[codecov]

Codecov Report

All modified and coverable lines are covered by tests ✅

Project coverage is 90.48%. Comparing base (7a1f372) to head (59ce510).

Additional details and impacted files

@@           Coverage Diff           @@
##             main     #485   +/-   ##
=======================================
  Coverage   90.47%   90.48%           
=======================================
  Files          74       74           
  Lines        5776     5780    +4     
=======================================
+ Hits         5226     5230    +4     
  Misses        550      550           

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