In jtrecenti/cea20160329:

Informações gerais

O que é

• Sistema para desenvolvimento de aplicações web usando o R.
• Um pacote do R (shiny).
• Um servidor web (shiny server).

Informações gerais

O que não é

• Uma página web.
• Um substituto para sistemas mais gerais, como Ruby on Rails e Django.
• Uma ferramenta gerencial, como o Tableau.

Desenvolvimento web

Quando surfamos na web, nos comunicamos com servidores do mundo inteiro, geralmente através do protocolo HTTP.

Server side

• Processa requisições e dados do cliente, estrutura e envia páginas web, interage com banco de dados, etc.
• Linguagens: PHP, C#, Java, R, etc (virtualmente qualquer linguagem de programação).

User side

• A partir de um browser, cria interfaces gráficas a partir dos códigos recebidos pelo servidor.
• "Linguagens" mais usuais: HTML, CSS e JavaScript.

Onde está o Shiny nisso tudo?

• O código fica no server side.
• Permite o envio páginas web, e interação com o usuário, utilizando o R.

Estrutura do código

• Duas opções: app.R ou ui.R + server.R.
• app.R é mais simples e limitado.
• ui imprime HTML e dá nomes aos inputs e outputs do shiny.
• server cuida do processamento no server side.

E pra que serve o shiny server?

• O pacote shiny do R -> possui internamente um servidor web básico.
• O shiny server -> software que roda somente em Linux e permite o acesso de múltiplas aplicações simultaneamente.

Como funciona

• Leia o tutorial do Shiny pelo RStudio

Começando com um exemplo

shiny::runGitHub('jtrecenti/cea20160329', 
                 subdir='inst/shiny-apps/helloWorld', 
                 display.mode='showcase')

Mesmo exemplo com app.R

shiny::runGitHub('jtrecenti/cea20160329', 
                 subdir='inst/shiny-apps/helloWorld2', 
                 display.mode='showcase')

Interfaces no user side

• Shiny utiliza como padrão o bootstrap css do Twitter.
• Criar páginas básicas com sidebarLayout.
• Páginas mais trabalhadas com fluidPage, fluidRow, column.
• Criar páginas web customizadas direto no HTML.
• Padrão do shinydashboards

Widgets

Acesse neste link ou rode

shiny::runGitHub('garrettgman/shinyWidgets')

Outputs

• Imagine que para cada função xxOutput('foo', ...) do ui.R você pode colocar um código do tipo output$foo <- renderXX(...) no server.R.
• A função no arquivo ui.R determina a localização e identificação do elemento
• Criando gráficos com plotOutput e renderPlot.
• Exibindo dados com dataTableOutput e renderDataTable.

Modelo de Reatividade

• Determina o quê vai rodar e em que ordem no arquivo server.R.
• Resolve a falta de tratamento de eventos no R.
• Impede que cálculos desnecessários sejam repetidos.
• Só funciona se programado adequadamente.

Objetos reativos

• Fonte (source): geralmente acessível no objeto input.
• Ponto final (endpoint): geralmente acessível no objeto output. Implementado através de observers.
• Condutores: geralmente implementado através da função reactive.

Construindo grafo de invalidação

Construindo grafo de invalidação

Exemplo

Grafo de invalidação do aplicativo construído nos exemplos anteriores.

Mais informações

• reactive: computações pesadas ou cálculos utilizados em várias partes da aplicação.
• observe: Guardar dados internamente, arquivos de log, etc, ou widgets personalizados.
• isolate: cancela a dependência de um valor reativo em um condutor ou ponto final.

Exemplo - mapa

shiny::runGitHub('jtrecenti/cea20160329', 
                 subdir='inst/shiny-apps/mapa', 
                 display.mode='showcase')

Fazendo mais com o shiny

Construindo inputs e outputs personalizados

• Geralmente necessita de implementações de bindings em R, HTML e JavaScript.
• Dependendo do caso, a criação de bindings pode ser "pulada" utilizando funções que injetam JavaScript na página e a função renderUI (geralmente menos eficiente).
• Não dá tempo de abordar no curso. Ler aqui e aqui.

Shiny gadgets

ggbrush <- function(data, xvar, yvar) {
  ui <- miniPage(
    gadgetTitleBar("Drag to select points"),
    miniContentPanel(
      plotOutput("plot", height = "100%", brush = "brush")
    )
  )
  server <- function(input, output, session) {
    output$plot <- renderPlot({
      ggplot(data, aes_string(xvar, yvar)) + geom_point()
    })
    observeEvent(input$done, {
      stopApp(brushedPoints(data, input$brush))
    })
  }
  runGadget(ui, server)
}

Shiny gadgets

library(cea20160329)
library(dplyr)
library(miniUI)
library(shiny)
library(ggplot2)
ggbrush <- function(data, xvar, yvar) {
  ui <- miniPage(
    gadgetTitleBar("Drag to select points"),
    miniContentPanel(
      column(6, plotOutput("plot", height = "300px", brush = "brush")),
      column(6, tableOutput('tab'))
    )
  )
  server <- function(input, output, session) {
    output$plot <- renderPlot({
      ggplot(data, aes_string(xvar, yvar)) + 
        geom_point(alpha = .1)
    })

    output$tab <- renderTable({
      input$done
      isolate({
        brushedPoints(data, input$brush)
      })
    })
  }
  shinyApp(ui, server)
}

ggbrush(filter(pnud, ano == 2010), 'idhm_e', 'idhm_r')

Shiny Server Pro

• Licença comercial do Shiny-server
• Autenticação e suporte.

shinyapps.io

• Apps online: necessidade de servidor Linux com o shiny server instalado.
• shinyapps.io é um sistema colocar uma aplicação shiny na web sem muito esforço.
• O serviço está sendo desenvolvido pela RStudio Inc. e tem contas grátis e pagas.

Ainda mais!

• Ferramenta em amplo desenvolvimento.
• Grande oportunidade na área acadêmica e profissional.
• Potencial de revolucionar as formas atuais de comunicação.

jtrecenti/cea20160329 documentation built on May 20, 2019, 3:16 a.m.