Data upload, download, display, modals and modules added.

This commit is contained in:
2022-02-18 11:10:36 +01:00
parent 950399bbef
commit a8a6d43d67
12 changed files with 555 additions and 143 deletions

View File

@@ -48,67 +48,67 @@ panel1<-
")
)
),
))#,
# tags$hr(),
# fluidRow(
# column(
# width = 6,
# fluidRow(
# h3("Data"),
# br(),
# p("This section shows the data (uploaded or inbuilt sample).")
# ),
# br(),
# withSpinner(dataTableOutput("up_data"),type = 7,
# color = "black"),
# br(),
# actionButton("uploadnew", "Upload New Data", class="btn-light")
# ),
# column(width = 6,
# br(),
# basicstatUI("nofloans"))
#
# ),
# br(),
# br(),
# fluidRow(
# column(
# width = 6,
# h3("With Macroeconomic data"),
# p(
# "In this section, we add macroeconomic data. Please select the country of the asset and click on fetch button. If download fails, click again or try after sometime. Please note that GDP data has been discontinued by IMF recently. Hence, using Industrial output temporarily."
# ),
# column(
# width = 6,
# selectInput(
# "country",
# "Country",
# selected = "India",
# choices = countries$Country
# )
# ),
# column(
# width = 6,
# br(),
# actionButton("fetchimf", "Fetch IMF data", class = "glow")
# ),
# withSpinner(
# dataTableOutput("fulldata"),
# type = 7,
# color = "black"
# )
# ),
# column(width = 6,
# uiOutput("ac_button"),
# uiOutput("expcalcu"))
# ),
# br(),
# br(),
# fluidRow(column(width = 11,
# uiOutput("scenario_opts"))),
# br(),
# fluidRow(column(width = 11,
# uiOutput("credit_loss"))),
# fluidRow(column(width = 11,
# uiOutput("dlmanager")))
)),
tags$hr(),
fluidRow(
column(
width = 6,
fluidRow(
h3("Data"),
br(),
p("This section shows the data (uploaded or inbuilt sample).")
),
br(),
withSpinner(dataTableOutput("up_data"),type = 7,
color = "black"),
br(),
actionButton("uploadnew", "Upload New Data", class="btn-light")
),
column(width = 6,
br(),
basicstatUI("nofloans"))
),
br(),
br(),
fluidRow(
column(
width = 6,
h3("With Macroeconomic data"),
p(
"In this section, we add macroeconomic data. Please select the country of the asset and click on fetch button. If download fails, click again or try after sometime. Please note that GDP data has been discontinued by IMF recently. Hence, using Industrial output temporarily."
),
column(
width = 6,
selectInput(
"country",
"Country",
selected = "India",
choices = countries$Country
)
),
column(
width = 6,
br(),
actionButton("fetchimf", "Fetch IMF data", class = "glow")
),
withSpinner(
dataTableOutput("fulldata"),
type = 7,
color = "black"
)
),
column(width = 6,
uiOutput("ac_button"),
uiOutput("expcalcu"))
),
br(),
br(),
fluidRow(column(width = 11,
uiOutput("scenario_opts"))),
br(),
fluidRow(column(width = 11,
uiOutput("credit_loss"))),
fluidRow(column(width = 11,
uiOutput("dlmanager")))
)