Update modify.mdJSON.R

hdvincelette · Feb 29, 2024 · fe5a5e4 · fe5a5e4
1 parent 7a708fd
commit fe5a5e4
Showing 1 changed file with 16 additions and 2 deletions.
diff --git a/R/modify.mdJSON.R b/R/modify.mdJSON.R
@@ -239,9 +239,23 @@ modify.mdJSON <-
             "'."
           )
         ))
-        fieldWidth.input <- as.character(readline(prompt =))
-        newattribute[[1]][["fieldWidth"]] <- fieldWidth.input
+        fieldWidth.input <- as.character(readline(prompt = ))
+
+        while (!grepl("[^[:digit:]]",
+                      format(fieldWidth.input,  digits = 20, scientific = FALSE)) == FALSE) {
+          message(cat(
+            paste0(
+              "\nfieldWidth must be an integer value. Enter 'skip' to omit this information."
+            )
+          ))
+          fieldWidth.input <- as.character(readline(prompt =))
 
+          if (fieldWidth.input == "skip") {
+            fieldWidth.input <- ""
+          }
+        }
+
+        newattribute[[1]][["fieldWidth"]] <- fieldWidth.input
 
         ## Add attribute to dictionary list
         dictionarylist[["dataDictionary"]][["entity"]][[1]][["attribute"]][[length(dictionarylist[["dataDictionary"]][["entity"]][[1]][["attribute"]]) +