From 8e05e915800a1ac3f58042db2cad85ca3f716801 Mon Sep 17 00:00:00 2001
From: Johannes Gussenbauer - QM <gussen@xlwt0012.statistik.local>
Date: Wed, 24 Apr 2024 14:42:20 +0200
Subject: [PATCH] fix bug numerical weighting

---
 R/recalib.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/recalib.R b/R/recalib.R
index b1f43ef..9c0ef29 100644
--- a/R/recalib.R
+++ b/R/recalib.R
@@ -149,6 +149,7 @@ recalib <- function(
   # define default values for ipf
   ipfDefaults <- formals(ipf)
   ipfDefaults <- ipfDefaults[!names(ipfDefaults) %in% names(formals(recalib))]
+  ipfDefaults$numericalWeighting <- eval(parse(text = ipfDefaults$numericalWeighting))
   ellipsis <- list(...)
   # set these to FALSE by default
   ellipsis[["check_hh_vars"]] <- getEllipsis2("check_hh_vars",