---
title: "Smart-Claims Analysis Dashboard for Flagged Claim"
output: 
   flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: menu
    source_code: embed
    runtime: shiny
     
---

```{r setup, include=FALSE}
library(flexdashboard)
```


```{r global, include=FALSE}
# load data in 'global' chunk so it can be shared by all users of the dashboard
 
setwd("C:/Users/m00864/Documents")

load("frauddummy.RData")


```




Column {data-width=650}
-----------------------------------------------------------------------

### Bar Plots for individual features 

```{r}
library(ggplot2)
library(ggthemes)
library(shiny)
library(magrittr)
library(highcharter)
library(dplyr)


library(rbokeh)
figure() %>%
  ly_bar(factor(Claim_ID),value,data=meltdf,color=variable,position = c( "dodge"),hover = TRUE,legend=FALSE)
 
```

Column {.tabset}
-----------------------------------------------------------------------

### Claim Details for Claim ID

```{r}
library(DT)

#panderOptions("digits", 2)
#pander(t(df_sub))

datatable(New_Data,filter = 'bottom', options = list(pageLength = 5))
```


### % of Claims Flagged

```{r}
gauge(80, min = 0, max = 100, symbol = '%', gaugeSectors(
  success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))

gauge(60, min = 0, max = 100, symbol = '%', gaugeSectors(
  success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))

gauge(20, min = 0, max = 100, symbol = '%', gaugeSectors(
  success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))

```