No queda otro remedio. Necesito actualizarme un poco y comenzar a usar shiny y espero poder llegar a publicar en el blog las aplicaciones resultantes. No sé si seré capaz pero allá vamos. Lo primero es tener Rstudio instalado y empezar a escribir:

install.packages(«shiny»)
system.file(«examples», package=»shiny»)

Ya podemos ver los ejemplos de un modo muy sencillo:

runExample(«05_sliders») # slider bars

Aparece una app que podemos ver tanto en RStudio como en nuestro navegador. Si modificamos las barras cambian los números de la tabla de la derecha. Muy sencillo. Para comenzar a trabajar debemos conocer dos códigos de R que están guardados en su correspondiente carpeta. Son server.R y ui.R que podemos abrir en la carpeta [deWindows] C:\Users\fulanito\Documents\R\win-library\3.1\shiny\examples\05_sliders Sin embargo nosotros vamos a copiar y pegar esta carpeta en la misma ubicación pero le damos el nombre prueba y abrimos server.R

library(shiny)

Define server logic for slider examples

shinyServer(function(input, output) {

Reactive expression to compose a data frame containing all of

the values

sliderValues

Compose data frame

data.frame(
Name = c(«Integer»,
«Decimal»,
«Range»,
«Custom Format»,
«Animation»),
Value = as.character(c(inputinteger,
inputdecimal,
paste(inputrange, collapse=’ ‘),
inputformat,
inputanimation)),
stringsAsFactors=FALSE)
})

Show the values using an HTML table

outputvalues sliderValues()
})
})

Interesante el botón Run app de arriba a la derecha para ejecutar la aplicación, eso implica que estamos ante una aplicación de shiny. shinyServer define una función con una entrada y una salida. La entrada será alguno de los datos que le pasamos a la aplicación y la salida una tabla HTML. Veamos que tiene ui.R

library(shiny)

Define UI for slider demo application

shinyUI(fluidPage(

Application title

titlePanel(«Sliders»),

Sidebar with sliders that demonstrate various available

options

sidebarLayout(
sidebarPanel(

Simple integer interval

sliderInput(«integer», «Integer:»,
min=0, max=1000, value=500),

Decimal interval with step value

sliderInput(«decimal», «Decimal:»,
min = 0, max = 1, value = 0.5, step= 0.1),

Specification of range within an interval

sliderInput(«range», «Range:»,
min = 1, max = 1000, value = c(200,500)),

Provide a custom currency format for value display,

with basic animation

sliderInput(«format», «Custom Format:»,
min = 0, max = 10000, value = 0, step = 2500,
format=»$#,##0″, locale=»us», animate=TRUE),

Animation with custom interval (in ms) to control speed,

plus looping

sliderInput(«animation», «Looping Animation:», 1, 2000, 1,
step = 10, animate=
animationOptions(interval=300, loop=TRUE))
),

Show a table summarizing the values entered

mainPanel(
tableOutput(«values»)
)
)
))

Vemos que podemos cambiar el título y creamos cada uno de los sliders con la función sliderInput. Y tendremos un panel principal con la función mainPanel con una tabla que representa los valores que tenemos en los sliders. Os confieso que este código me recuerda mucho al AF de SAS y no es un código R al uso. Sobre este mismo ejemplo vamos a ir cambiando código para ir conociendo como creamos nuestras aplicaciones. Saludos.