---
title: "Smart-Claims Analysis Dashboard for Flagged Claim"
output: 
  flexdashboard::flex_dashboard:
    theme: flatly
    vertical_layout: fill
    orientation: rows
    source: embed
---

```{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")


```

Row {data-height=450}
-------------------------------------

### Bar Plots for individual features 

```{r}

library(ggplot2)
library(ggthemes)
library(shiny)
library(magrittr)
library(highcharter)
library(dplyr)


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

Row {data-height=550}
-------------------------------------
   
### Claim Details for Claim ID

```{r}
library(DT)

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

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

```   
    

### % of Claims Flagged {data-height=650}

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



```


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

```


```{r}

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