--- a
+++ b/R/is.cleanedMetadata.R
@@ -0,0 +1,4 @@
+is.cleanedMetadata <- function(cleaned_meta_data) {
+
+  return(cleaned_meta_data)
+}