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

Report Added

Browse Source
This commit is contained in:
Asitav Sen
2022-07-20 13:10:36 +02:00
parent caf6f0a8d8
commit 00b045ee8e
4 changed files with 14 additions and 16 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": "23,0", "cursorPosition": "451,32",
"scrollLine": "16" "scrollLine": "442"
} }

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": "23,0", "cursorPosition": "451,32",
"scrollLine": "16" "scrollLine": "442"
}, },
"folds": "", "folds": "",
"lastKnownWriteTime": 1686050157, "lastKnownWriteTime": 1686050585,
"encoding": "UTF-8", "encoding": "UTF-8",
"collab_server": "", "collab_server": "",
"source_window": "", "source_window": "",
"last_content_update": 1686050157531, "last_content_update": 1686050585975,
"read_only": false, "read_only": false,
"read_only_alternatives": [] "read_only_alternatives": []
} }

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

@@ -325,8 +325,7 @@ server <- function(input, output) {
# Model Selection. Using functions. In production these are to be converted to APIs # Model Selection. Using functions. In production these are to be converted to APIs
selected_model <- reactive({ selected_model <- reactive({
req(input$start_model_selection, req(input$start_model_selection,!is.null(dataset_with_eco()))
!is.null(dataset_with_eco()))
model_sel(dff = dataset_with_eco()) model_sel(dff = dataset_with_eco())
}) })

3
app.R
View File

@@ -325,8 +325,7 @@ server <- function(input, output) {
# Model Selection. Using functions. In production these are to be converted to APIs # Model Selection. Using functions. In production these are to be converted to APIs
selected_model <- reactive({ selected_model <- reactive({
req(input$start_model_selection, req(input$start_model_selection,!is.null(dataset_with_eco()))
!is.null(dataset_with_eco()))
model_sel(dff = dataset_with_eco()) model_sel(dff = dataset_with_eco())
}) })