fix: oversight with reconstruct for parameters in which only the valu…

…e is of interest
flowr-analysis · Aug 5, 2023 · cecffd1 · cecffd1
1 parent 448ab8e
commit cecffd1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/slicing/reconstruct.ts b/src/slicing/reconstruct.ts
@@ -295,6 +295,8 @@ function reconstructParameter(parameter: RParameter<ParentInformation>, name: Co
 
   if(parameter.defaultValue !== undefined && name.length > 0) {
     return plain(`${getLexeme(parameter.name)}=${getLexeme(parameter.defaultValue)}`)
+  } else if(parameter.defaultValue !== undefined && name.length === 0) {
+    return plain(getLexeme(parameter.defaultValue))
   } else {
     return name
   }

diff --git a/test/slicing/static/calls.ts b/test/slicing/static/calls.ts
@@ -90,9 +90,9 @@ a(x = 3)`
     assertSliced('Must work for same named arguments too', shell, 'a <- 3\nb <- foo(a=a)', ['2@b'], 'a <- 3\nb <- foo(a=a)')
 
     assertSliced('Must work for same named arguments nested', shell, `
-f <- function(some_variable="hello") { 
+f <- function(some_variable="hello") {
   result <- some::other(some_variable=some_variable)
-  result 
+  result
 }
     `, ['4@result'], `function(some_variable="hello") {
     result <- some::other(some_variable=some_variable)