Added attaching dataType and measureType attributes to a data frame w…

…hen write_omv is called from jamovi
sjentsch · Jul 24, 2023 · d9feb0d · d9feb0d
1 parent e49001e
commit d9feb0d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/write_omv.R b/R/write_omv.R
@@ -54,7 +54,9 @@ write_omv <- function(dtaFrm = NULL, fleOut = "", retDbg = FALSE) {
     chkExt(fleOut, "omv")
 
     # check whether dtaFrm is a data frame
+    # attach dataType and measureType attributes when inside jamovi
     chkDtF(dtaFrm)
+    if (isJmv()) dtaFrm <- jmvAtt(dtaFrm)
 
     # handle the attributes "variable.labels" and "value.labels" in the format provided by the R-package "foreign"
     # the attribute "variable.labels" (attached to the data frame) is converted them to the format used by jamovi ("jmv-desc" attached to the data column)