Eliminado la parte de shiny.

Láminas de agradecimiento

WWCR.Rmd

@@ -893,26 +893,6 @@ Además el documento que estás viendo utiliza tecnología de `RStudio` llamada
 
 Puedes aprender más en esta liga [Interactive Documents](http://rmarkdown.rstudio.com/authoring_shiny.html).
 
-# Productificar
+# ¿Preguntas?
 
-## Producto de datos
-
-Es posible utilizar en el documento interactividad mediante `shiny`. La salida será actualizada automáticamente cuando los elementos de interacción cambien. 
-
-```{r, echo=FALSE}
-inputPanel(
-  selectInput("n_breaks", label = "Number of bins:",
-              choices = c(10, 20, 35, 50), selected = 20),
-  
-  sliderInput("bw_adjust", label = "Bandwidth adjustment:",
-              min = 0.2, max = 2, value = 1, step = 0.2)
-)
-
-renderPlot({
-  hist(accidents$injured, probability = TRUE, breaks = as.numeric(input$n_breaks),
-       xlab = "Duration (minutes)", main = "Geyser eruption duration")
-  
-  dens <- density(accidents$injured)
-  lines(dens, col = "blue")
-})
-```
+# ¡Gracias!