From 07850222ebf8a0f987b553d63c17b7e7531a54c1 Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Mon, 4 Dec 2023 15:06:56 -0600
Subject: [PATCH] Convert logical vector to real

---
 src/etTran.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/etTran.cpp b/src/etTran.cpp
index 128cea82..0d643cb2 100644
--- a/src/etTran.cpp
+++ b/src/etTran.cpp
@@ -2131,7 +2131,7 @@ List etTransParse(List inData, List mv, bool addCmt=false,
     } else if (TYPEOF(cur) == LGLSXP) {
       curType[0]  = IntegerVector::create(5);
       curType[1]  = R_NilValue;
-      inDataFK[j] = cur;
+      inDataFK[j] = as<NumericVector>(cur);
       inDataFKL[j] = curType;
     } else {
       stop(_("the columns that are kept must be either a logical, string, a factor, an integer number, or a real number"));