From bab8e56e3103434af9ac7cec968e88a02fa6eca8 Mon Sep 17 00:00:00 2001
From: Kyoshido <j.novak@email.cz>
Date: Tue, 6 May 2025 10:52:55 +0200
Subject: [PATCH] check missing

add checks when hhid hhsize pid are missing
---
 R/specifyInput.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/specifyInput.R b/R/specifyInput.R
index 9b817f2..6b13318 100644
--- a/R/specifyInput.R
+++ b/R/specifyInput.R
@@ -39,6 +39,10 @@
 specifyInput <- function(data, hhid=NULL, hhsize=NULL, pid=NULL, weight=NULL,
                          strata=NULL, population=FALSE) {
   
+  if (missing(hhid)) hhid <- NULL
+  if (missing(hhsize)) hhsize <- NULL
+  if (missing(pid)) pid <- NULL
+  
   hhid.simPop <- weight.simPop <- NULL
   
   if(!(inherits(data,"data.frame") | inherits(data,"data.table"))){