---

---
title: "buscador_perdida_de_clientes"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    source_code: embed
    social: [  "menu" ]
author: "Flow"
date: "19/7/2021"
---






```{r , include=FALSE}

library(ggplot2)
library(plotly)
# library(sp) 
# library(rgdal)
# library(stringr)
# library(leaflet)
# library(leaflet.extras)
library(htmlwidgets)
# library(tidyverse)
# library(raster)
# library(rgeos)
# library(readr)
# library(RColorBrewer)
# library(colorspace)
# library(sf)
# library(units)
library(tidyverse)
library(lubridate)
library(sqldf)
library(splitstackshape)
library(crosstalk) # para exportar un DF al HTML 
library(DT)
library(data.table) # para setnames
library(readr)
train <- read_csv("datos/train.csv", locale = locale(grouping_mark = ""))

train$customer_id <- as.factor(train$customer_id)
train$account_id  <- as.factor(train$account_id)
train$device_type <- as.factor(train$device_type)
train$asset_id    <- as.factor(train$asset_id)
train$resume      <- as.factor(train$resume)
train$tunein <- substr(train$tunein,1,10)
train <- select(train, -c('tuneout'))
train <- sqldf("select customer_id
                       , count(account_id)           as cant_cuentas
                       , count(distinct device_type) as cant_canales
                       , count(asset_id)             as cant_videos
                       , max(tunein)                 as ultima_fecha
                from train
                group by 1 ")
train$ultima_fecha <- as.Date(as.character(train$ultima_fecha), format = "%Y-%m-%d")


# Wrap data frame in SharedData
train_vis     <- SharedData$new(train)
```

-------------------------------------
#  

```{r , filters 1, 2, 3}
bscols(widths = c(2,NA,NA),
  list(

filter_slider("ultima_fecha", "ultima_fecha", train_vis, ~ultima_fecha, width = "100%")

),

 plot_ly(train_vis , x = ~cant_canales) %>% add_histogram(widths= 1),
 

 plot_ly(train_vis , x = ~ultima_fecha) %>% add_histogram(widths= 0.01)
)
``` 


```{r table, echo = FALSE}
datatable(train_vis, extensions= c('Buttons', "Scroller")
                     , filter = "top"
                     , style = "bootstrap" 
                     , class="display nowrap compact", rownames = FALSE
                    # , class = "display nowrap compact"    # "display nowrap compact"
                    , width = "100%"
                    , options=list(
                          dom = 'Blfrtip'
                        , buttons = c('copy', 'csv', 'excel', 'pdf', 'print') 
                        , lengthMenu = list(c( 10, 25, 50, -1 ), c(10, 25, 50, "todo"))
                        , deferRender = TRUE
                        , scrollY     = 300
                        , scrollX     = 300
                        , scroller    = FALSE
                        , list(pageLength = 5, autoWidth = TRUE))
                        , caption = htmltools::tags$caption(
                                     style = 'caption-side:top ; text-align: left ;',
                                     'Tabla 1: ', htmltools::em('clientes segmentados por ultima fecha de uso')))


# %>% formatCurrency('pais', digits = 0)  
                
# , width="100%"
# options=list(deferRender=TRUE, scrollY=300, scroller=TRUE),
# extensions= "Scroller" // extensions = 'Buttons' // , editable = 'cell'
```