incrBlobLabelSuffix

Author: dehann

src/DataBlobs/services/AbstractDataEntries.jl

@@ -217,4 +217,41 @@ function mergeDataEntries!(
     if 0  < length(des)
         union(((s->mergeDataEntries!(dst, dlbl, src, slbl, s.id)).(des))...)
     end
-end
+end
+
+"""
+    $SIGNATURES
+
+If the blob label `datalabel` already exists, then this function will return the name `datalabel_1`.
+If the blob label `datalabel_1` already exists, then this function will return the name `datalabel_2`.
+"""
+function incrBlobLabelSuffix(
+    dfg::AbstractDFG,
+    vla,
+    bllb; 
+    datalabel=Ref("")
+)
+    count = 1
+    hasund = false
+    try
+        de,_ = getData(dfg, Symbol(vla), bllb)
+        bllb = string(bllb)
+        # bllb *= bllb[end] != '_' ? "_" : ""
+        datalabel[] = string(de.label)
+        dlb = match(r"\d*", reverse(datalabel[]))
+        # slightly complicated search if blob name already has an underscore number suffix, e.g. `_4`
+        count, hasund = if occursin(Regex(dlb.match*"_"), reverse(datalabel[]))
+        parse(Int, dlb.match |> reverse)+1, true
+        else
+        1, datalabel[][end] == '_'
+        end
+    catch err
+        # append latest count
+        if !(err isa KeyError)
+        throw(err)
+        end
+    end
+    bllb *= !hasund || bllb[end] != '_' ? "_" : ""
+    bllb *= string(count)
+    bllb
+end

src/DistributedFactorGraphs.jl

@@ -192,12 +192,14 @@ export getSolvedCount, isSolved, setSolvedCount!, isInitialized, isMarginalized,
 export getNeighborhood, getNeighbors, _getDuplicatedEmptyDFG
 export findFactorsBetweenNaive
 export copyGraph!, deepcopyGraph, deepcopyGraph!, buildSubgraph, mergeGraph!
-# Big Data
+
+# Entry Blob Data
 ##------------------------------------------------------------------------------
 export addDataEntry!, getDataEntry, updateDataEntry!, deleteDataEntry!, getDataEntries, listDataEntries, hasDataEntry, hasDataEntry
 export listDataEntrySequence
 # convenience wrappers
 export addDataEntry!, mergeDataEntries!
+export incrBlobLabelSuffix
 # aliases
 export addData!
 

test/consol_DataEntryBlobTests.jl

@@ -92,7 +92,12 @@ ds = FolderStore{Vector{UInt8}}(:filestore, "/tmp/dfgFolderStore")
 addBlobStore!(dfg, ds)
 
 ade,adb = addData!(dfg, :filestore, :x1, :random, dataset1)
+ade,adb = addData!(dfg, :filestore, :x1, :another_1, dataset1)
 gde,gdb = getData(dfg, :x1, :random)
+
+@test incrBlobLabelSuffix(dfg,:x2,:random) == :random_1
+@test incrBlobLabelSuffix(dfg,:x2,:another) == :another_2
+
 dde,ddb = deleteData!(dfg, :x1, :random)
 
 @test ade == gde == dde

test/testBlocks.jl

@@ -1437,6 +1437,10 @@ function ProducingDotFiles(testDFGAPI,
 
     addVariable!(dotdfg, v1)
     addVariable!(dotdfg, v2)
+    # FIXME, fix deprecation
+    # ┌ Warning: addFactor!(dfg, variables, factor) is deprecated, use addFactor!(dfg, factor)
+    # │   caller = ProducingDotFiles(testDFGAPI::Type{GraphsDFG}, v1::Nothing, v2::Nothing, f1::Nothing; VARTYPE::Type{DFGVariable}, FACTYPE::Type{DFGFactor}) at testBlocks.jl:1440
+    # └ @ Main ~/.julia/dev/DistributedFactorGraphs/test/testBlocks.jl:1440
     addFactor!(dotdfg, [v1, v2], f1)
     #NOTE hardcoded toDot will have different results so test LightGraphs seperately
     if testDFGAPI <: LightDFG || testDFGAPI <: GraphsDFG || testDFGAPI <: Neo4jDFG
@@ -1490,7 +1494,8 @@ function CopyFunctionsTest(testDFGAPI; kwargs...)
     @test issetequal(lsf(dcdfg_part), flbls)
 
     # deepcopy subgraph ignoring orphans
-    @test_logs (:warn, r"orphan") dcdfg_part = deepcopyGraph(LightDFG, dfg, vlbls, union(flbls, [:x1x2f1]))
+    # @test_logs (:warn, r"orphan") # orphan warning has been suppressed given overwhelming printouts
+    dcdfg_part = deepcopyGraph(LightDFG, dfg, vlbls, union(flbls, [:x1x2f1]))
     @test issetequal(ls(dcdfg_part), vlbls)
     @test issetequal(lsf(dcdfg_part), flbls)