From 8f1c8ce13bc67fc7a5c4acad90ab99222fd7539d Mon Sep 17 00:00:00 2001 From: Brian Bolt Date: Tue, 30 Jan 2024 16:37:25 -0800 Subject: [PATCH] ACAS-744: Unique newValueKinds --- modules/GenericDataParser/src/server/generic_data_parser.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/GenericDataParser/src/server/generic_data_parser.R b/modules/GenericDataParser/src/server/generic_data_parser.R index f47f0f0ff..3f6d947ca 100644 --- a/modules/GenericDataParser/src/server/generic_data_parser.R +++ b/modules/GenericDataParser/src/server/generic_data_parser.R @@ -1115,7 +1115,7 @@ validateValueKinds <- function(neededValueKinds, neededValueKindTypes, dryRun, r valueTypesList <- getAllValueTypes() valueTypes <- sapply(valueTypesList, getElement, "typeName") # Add problemFrame$oldValueKinds to newValueKinds, as we now save them - newValueKinds <- c(problemFrame$oldValueKinds, newValueKinds) + newValueKinds <- unique(c(problemFrame$oldValueKinds, newValueKinds)) valueKindTypes <- neededValueKindTypes[match(newValueKinds, neededValueKinds)] valueKindTypes <- c("numericValue", "stringValue", "dateValue", "clobValue", "inlineFileValue")[match(valueKindTypes, c("Number", "Text", "Date", "Clob", "Image File"))]