Paseando por shiny dygraph y R Markdown

Dy grpah es una de las librearias más diveridas vamos a ver como generar grupo de gráficos, tablas y grafico interactivos con markdown y shiny


---
title: "Pruebas Shiny"
author: "jvigo6n"
date: "21 de enero de 2020"
output: html_document
  # ioslides_presentation:
  #   keep_md: yes
  #   widescreen: yes
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

# La bolse y R (Paquete quantMode) {.tabset }
Vamos a hacer un mardown para tradear, para ver los nombres de las compañias aquí [YahooFinanciero](https://finance.yahoo.com/quote/TEF?p=TEF&.tsrc=fin-srch  ).

## Genera Grupos de dygraph {.tabset }
```{r dygraphs sincro , echo=FALSE, error=FALSE, warning= FALSE, message=FALSE}
# https://finance.yahoo.com/quote/TEF?p=TEF&.tsrc=fin-srch
library(dplyr)
library(dygraphs)
library(DT)
library(quantmod)

tickers <- c("AAPL", "MSFT", "IBM", "TEF")
getSymbols(tickers)
closePrices <- do.call(merge, lapply(tickers, function(x) Cl(get(x))))
dateWindow <- c("2008-01-01", "2009-01-01")

dygraph(closePrices, main = "Value", group = "stock") %>%
  dyRebase(value = 100) %>%
  dyRangeSelector(dateWindow = dateWindow)

dygraph(closePrices, main = "Percent", group = "stock") %>%
  dyRebase(percent = TRUE) %>%
  dyRangeSelector(dateWindow = dateWindow)

dygraph(closePrices, main = "None", group = "stock2") %>%
  dyRangeSelector(dateWindow = dateWindow)


```

## Interactive Table {.tabset }
```{r dygraphs}
# https://shiny.rstudio.com/gallery/basic-datatable.html
closePrices2 <- closePrices %>% data.frame()
closePrices2$Fecha <- index(closePrices)
closePrices2 <-
  closePrices2[ , c("Fecha", names(closePrices2) [ names(closePrices2) != "Fecha"] )]
row.names(closePrices2) <- rm()
# closePrices2

shinyApp(
  ui = fluidPage(
    selectInput("compania", "Companyia:",
                c("APPLE" = "AAPL.Close",
                  "Microsft" = "MSFT.Close",
                  "IBM" = "IBM.Close",
                  "Telefonica" = "TEF.Close"), state.name, multiple= T, selectize=T) 
    , tableOutput("data")
    , dataTableOutput("DT")
  ),
  server = function(input, output) {
    output$data <-  renderTable({
      if( length(input$compania)> 0 ){
        x <- closePrices2[ ,   c("Fecha" ,names(closePrices2)[ names(closePrices2) %in% 
                                                         input$compania
                                                          # "TEF.Close"
                                                         ] ) ]
        x <- x[order(x[,2], decreasing = TRUE),][1:10,]
        x$Fecha  <- x$Fecha %>%  as.Date %>% as.character()
        x
      }else{
        closePrices2[ !1:nrow(closePrices2),]
      }
      }, rownames = FALSE)
    output$DT <-  renderDataTable({
      if( length(input$compania)> 0 ){
        x <- closePrices2[ ,  names(closePrices2) %in% c("Fecha", input$compania)]
        x <- x[order(x[,1], decreasing = TRUE),]
        x
      }else{
        x <- closePrices2
        x <- x[ !1:nrow(closePrices2),]
        x
      }})
        
  })
```

## Shiny {.tabset }
```{r Shiny}
closePrices3 <- closePrices
# closePrices2

plotdyg <- function(dataPlot){
  dygraph(dataPlot, main = "None", group = "stock") %>%
  dyRangeSelector(dateWindow = dateWindow)
}

shinyApp(
  ui =  fluidPage(
    selectInput("compania", "Companyia:",
                c("APPLE" = "AAPL.Close",
                  "Microsft" = "MSFT.Close",
                  "IBM" = "IBM.Close",
                  "Telefonica" = "TEF.Close"), state.name, multiple= T, selectize=T)
    , dygraphOutput("dyg")
    , dygraphOutput("dyg2")
    # , dataTableOutput("DT")
  ),
  server = function(input, output) {
    output$dyg <-  renderDygraph({
      if( length(input$compania)> 0 ){
        x <- closePrices3[ , names(closePrices3) %in% input$compania ]
        plotdyg( x )
      }else{
        plotdyg( closePrices3[ !1:nrow(closePrices2),] )
      }
      })
    output$dyg2 <-  renderDygraph({plotdyg( closePrices3 )})
  })
```


## Interactive Plot {.tabset }
```{r dygraphs2}
# https://shiny.rstudio.com/gallery/basic-datatable.html
closePrices4 <- closePrices
# closePrices2

plotdyg <- function(dataPlot){
  dygraph(dataPlot, main = "None", group = "stock") %>%
  dyRangeSelector(dateWindow = dateWindow)
}

selectInput(inputId = "compania", label = "Companyia:",
            choices = c("APPLE" = "AAPL.Close",
                        "Microsft" = "MSFT.Close",
                        "IBM" = "IBM.Close",
                        "Telefonica" = "TEF.Close"), state.name, multiple= T, selectize=T) 

renderDygraph({
  if( length(input$compania)> 0 ){
    x <- closePrices3[ , names(closePrices3) %in% input$compania ] 
    plotdyg( x )
    }else{
      plotdyg( closePrices3[ !1:nrow(closePrices2),] )
      }
  })
renderDygraph({plotdyg( closePrices3 )})  


sliderInput("bins", "Number of bins:", min = 1, max = 50, value = 30)

renderPlot({
  x <- faithful[, 2]  # Old Faithful Geyser data
  bins <- seq(min(x), max(x), length.out = input$bins + 1)

  # draw the histogram with the specified number of bins
  hist(x, breaks = bins, col = 'darkgray', border = 'white')
})
```