clean

un-fao · Jul 15, 2024 · 59bbd11 · 59bbd11
1 parent 1968ca6
commit 59bbd11
Show file tree

Hide file tree

Showing 2 changed files with 341 additions and 417 deletions.
diff --git a/assets/core/utils.R b/assets/core/utils.R
@@ -72,4 +72,11 @@ dateformating<- function(date,period="start"){
     dates<-c(dates,x)
   }
   return(dates)
+}
+
+#intersection
+##Extension of intersect() function, allow intersection of more than two dataframe 
+intersection <- function(x, y, ...){
+  if (missing(...)) intersect(x, y)
+  else intersect(x, intersection(y, ...))
 }