diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..5b6a065 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +.Rproj.user +.Rhistory +.RData +.Ruserdata diff --git a/README.md b/README.md index 7d6da30..53f4fec 100644 --- a/README.md +++ b/README.md @@ -1,2 +1,5 @@ # uwdashboard -an example underwriting dashboard +example of an underwriting dashboard + +## Files +app.R - shiny application diff --git a/app.R b/app.R new file mode 100644 index 0000000..3c345f9 --- /dev/null +++ b/app.R @@ -0,0 +1,46 @@ +## app.R ## +library(shiny) +library(shinydashboard) + +ui <- dashboardPage( + dashboardHeader(title = "Underwriting Dashboard"), + dashboardSidebar( + sidebarMenu( + # Dashboard + menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")), + # Report + menuItem("Policy Report", tabName = "report", icon = icon("chart-line")), + # Control widget + selectInput(inputId = "category", label = "Select input", + choices = c("Option 1", "Option 2"), + selected = "Option 1", multiple = TRUE) + ) + ), + dashboardBody( + tabItems( + # First tab + tabItem(tabName = "dashboard", + fluidRow( + # Box 1 + box("placeholder text", width = 7), + + # Box 2 + box("placeholder text", width = 5) + ) + ), + + # Second tab + tabItem(tabName = "report", + # tab content + box("placeholder text") + + ) + ) + ) +) + +server <- function(input, output) { + +} + +shinyApp(ui, server) \ No newline at end of file diff --git a/rsconnect/colorado.rstudio.com/hadrien/underwriting_dashboard.dcf b/rsconnect/colorado.rstudio.com/hadrien/underwriting_dashboard.dcf new file mode 100644 index 0000000..6f3e89e --- /dev/null +++ b/rsconnect/colorado.rstudio.com/hadrien/underwriting_dashboard.dcf @@ -0,0 +1,12 @@ +name: underwriting_dashboard +title: Underwriting Dashboard +username: hadrien +account: hadrien +server: colorado.rstudio.com +hostUrl: https://colorado.rstudio.com/rsc/__api__ +appId: 2890 +bundleId: 27234 +url: https://colorado.rstudio.com/rsc/content/2890/ +when: 1569448590.95844 +asMultiple: FALSE +asStatic: FALSE diff --git a/uwdashboard.Rproj b/uwdashboard.Rproj new file mode 100644 index 0000000..8e3c2eb --- /dev/null +++ b/uwdashboard.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