Initiated

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

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "29,10",
+    "scrollLine": "4"
+}

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

@@ -0,0 +1 @@
+~%2FProjects%2FLoanRisk%2Fapp.R="A1AE5A83"

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

@@ -0,0 +1,26 @@
+{
+    "id": "FE6BB309",
+    "path": "~/Projects/LoanRisk/app.R",
+    "project_path": "app.R",
+    "type": "r_source",
+    "hash": "3883691992",
+    "contents": "",
+    "dirty": false,
+    "created": 1685718888828.0,
+    "source_on_save": false,
+    "relative_order": 1,
+    "properties": {
+        "source_window_id": "",
+        "Source": "Source",
+        "cursorPosition": "29,10",
+        "scrollLine": "4"
+    },
+    "folds": "",
+    "lastKnownWriteTime": 1686046542,
+    "encoding": "UTF-8",
+    "collab_server": "",
+    "source_window": "",
+    "last_content_update": 1686046542053,
+    "read_only": false,
+    "read_only_alternatives": []
+}

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

@@ -0,0 +1,46 @@
+# Estimate exposure at risk and create report
+# Application developed by LaNubia
+
+library(shiny)
+library(dplyr)
+library(ggplot2)
+library(lubridate)
+library(survival)
+library(pec)
+library(DT)
+library(shinycssloaders)
+library(imfr)
+library(patchwork)
+library(tidyr)
+library(shinythemes)
+library(triangle)
+library(DiagrammeR)
+library(stringr)
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("LoanRisk"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           
+        )
+    )
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+
+
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)

LoanRisk.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

app.R

@@ -0,0 +1,46 @@
+# Estimate exposure at risk and create report
+# Application developed by LaNubia
+
+library(shiny)
+library(dplyr)
+library(ggplot2)
+library(lubridate)
+library(survival)
+library(pec)
+library(DT)
+library(shinycssloaders)
+library(imfr)
+library(patchwork)
+library(tidyr)
+library(shinythemes)
+library(triangle)
+library(DiagrammeR)
+library(stringr)
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("LoanRisk"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           
+        )
+    )
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+
+
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)