From 4ff99f21081f20444d9ec07add33db2ec9b3e084 Mon Sep 17 00:00:00 2001
From: s915 <s915.stem@gmail.com>
Date: Tue, 30 Jun 2020 01:23:23 +0200
Subject: [PATCH] Force the column 'original_period' to be of class character.

---
 R/dot_rdb.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/dot_rdb.R b/R/dot_rdb.R
index 930fdba..d022e1b 100644
--- a/R/dot_rdb.R
+++ b/R/dot_rdb.R
@@ -152,6 +152,7 @@
       call. = FALSE
     )
   })
+  DBdata[, original_period := as.character(original_period)]
 
   tryCatch({
     data.table::setnames(DBdata, "period_start_day", "period")
@@ -292,6 +293,7 @@
         call. = FALSE
       )
     })
+    DBlist[, original_period := as.character(original_period)]
     # In case of different classes, the class of the column 'original_period'
     # is set to 'character'
     if (
-- 
GitLab