IMF data extraction module added

.Rproj.user/178A6739/sources/prop/A1AE5A83

@@ -1,6 +1,6 @@
 {
     "source_window_id": "",
     "Source": "Source",
-    "cursorPosition": "291,28",
+    "cursorPosition": "8,11",
-    "scrollLine": "223"
+    "scrollLine": "0"
 }

.Rproj.user/178A6739/sources/session-99529da2/FE6BB309

@@ -12,15 +12,15 @@
     "properties": {
         "source_window_id": "",
         "Source": "Source",
-        "cursorPosition": "291,28",
+        "cursorPosition": "8,11",
-        "scrollLine": "223"
+        "scrollLine": "0"
     },
     "folds": "",
-    "lastKnownWriteTime": 1686049083,
+    "lastKnownWriteTime": 1686049765,
     "encoding": "UTF-8",
     "collab_server": "",
     "source_window": "",
-    "last_content_update": 1686049083340,
+    "last_content_update": 1686049765357,
     "read_only": false,
     "read_only_alternatives": []
 }

.Rproj.user/178A6739/sources/session-99529da2/FE6BB309-contents

@@ -22,8 +22,7 @@ options(shiny.reactlog = TRUE, appDir = getwd())
 
 source("mod_basic.R")
 source("panel.R")
-
+source("secretary.R")
-# source("secretary.R")
 # source("forplumber.R")
 source("modals.R")
 
@@ -182,10 +181,6 @@ server <- function(input, output) {
                      }
                    )
 
-                   
-                   
-                   
-                   
                    setProgress(value = 2, message = "Done")
                  })
     

app.R

@@ -22,8 +22,7 @@ options(shiny.reactlog = TRUE, appDir = getwd())
 
 source("mod_basic.R")
 source("panel.R")
-
+source("secretary.R")
-# source("secretary.R")
 # source("forplumber.R")
 source("modals.R")
 
@@ -182,10 +181,6 @@ server <- function(input, output) {
                      }
                    )
 
-                   
-                   
-                   
-                   
                    setProgress(value = 2, message = "Done")
                  })
     

secretary.R

@@ -0,0 +1,11 @@
+# Function to get mode
+getmode <- function(v) {
+  uniqv <- unique(v)
+  uniqv[which.max(tabulate(match(v, uniqv)))]
+}
+
+# Function to return length of unique
+
+lenun <- function(x) {
+  length(unique(x))
+}