asitav/LoanRisk
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

IMF data extraction module added

Browse Source
This commit is contained in:
Asitav Sen
2022-04-05 11:10:36 +02:00
parent 10d802b6c6
commit e73b19da49
5 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.Rproj.user/178A6739/sources/prop/A1AE5A83
View File

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

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

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

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

@@ -22,8 +22,7 @@ options(shiny.reactlog = TRUE, appDir = getwd())
source("mod_basic.R") source("mod_basic.R")
source("panel.R") source("panel.R")
source("secretary.R")
# source("secretary.R")
# source("forplumber.R") # source("forplumber.R")
source("modals.R") source("modals.R")
@@ -181,11 +180,7 @@ server <- function(input, output) {
message("Error with IMF database. Please try again later.") message("Error with IMF database. Please try again later.")
} }
) )
setProgress(value = 2, message = "Done") setProgress(value = 2, message = "Done")
}) })

9
app.R
View File

@@ -22,8 +22,7 @@ options(shiny.reactlog = TRUE, appDir = getwd())
source("mod_basic.R") source("mod_basic.R")
source("panel.R") source("panel.R")
source("secretary.R")
# source("secretary.R")
# source("forplumber.R") # source("forplumber.R")
source("modals.R") source("modals.R")
@@ -181,11 +180,7 @@ server <- function(input, output) {
message("Error with IMF database. Please try again later.") message("Error with IMF database. Please try again later.")
} }
) )
setProgress(value = 2, message = "Done") setProgress(value = 2, message = "Done")
}) })

11
secretary.R Normal file
View File

@@ -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))
}