13

Problema

Aqui no Stackoverflow em Português há guias e também perguntas cujo tema são os exemplos reprodutíveis. Entretanto não há nada equivalente para o o que pode dificultar a vida dos iniciantes e também implicar em uma menor qualidade das respostas ou desinteresse dos usuários mais experientes em responder a pergunta.

Gerar uma boa pergunta para o de acordo com os padrões do site pode ser muito difícil uma vez que um exemplo mínimo do shiny deve incluir um arquivo server.R, ui.R e ainda necessitar de um global.R. Mesmo que seja usado o padrão de arquivo único, um app.R, ainda assim pode haver a necessidade de incluir os estilos em CSS e também templates em HTML. Assim minha pergunta geral seria como gerar um exemplo mínimo, completo e verificável para o ?

Sumário

Eu gostaria que na resposta fosse incluído:

  • linhas gerais de uma boa pergunta.
  • um exemplo reprodutível.
  • funções e outros recursos do R que possam ser úteis.
2
  • Essa pergunta não deveria estar no meta?
    – Costamilam
    Commented 7/01/2019 às 1:41
  • 1
    Não. Ela é sobre uma dificuldade técnica como tornar uma aplicação em shiny reprodutível. Isso pode servir para o SOpt, mas também para submeter issues a mantenedores de pacotes, etc. Commented 7/01/2019 às 14:00

1 Resposta 1

10

Linhas gerais

As linhas gerais ou os princípios que guiarão a construção da pergunta são os mesmos elencados aqui, aqui e no link citado na pergunta. O que vai mudar no é como implantar estes princípios.

Estes princípios podem ser resumidos assim:

  1. Compartilhe os dados utilizados (ou ao menos um parte deles);
  2. Compartilhe um código mínimo que reproduz o problema
  3. Compartilhe o resultado obtido (mensagens de erro, avisos ou telas geradas);
  4. Compartilhe qual seria o resultado esperado com o código compartilhado;
  5. Compartilhe as informações de sessão (versão do , pacotes usados) com sessionInfo().

Como os itens 1 e 5 são resolvidos da mesma maneira do que para o em geral, o restante da resposta foca nos itens 2 a 4.

Digamos a pergunta fosse:

Como permitir que o usuário escolha um conjunto de dados em um ?

Código mínimo

Passo 1: reproduzir o problema

Para que outras pessoas possam de ajudar, elas precisarão reproduzir o seu problema. Então comece um arquivo novo (app.R) e insira nele o código de seu .

Nesta etapa caso haja um global.R nesse , este será o primeiro conteúdo do novo script. Depois copie e cole os conteúdos de ui.R e server.R definindo as variáveis ui e server. Termine por chamar chamar a função shinyApp(ui, server) com os objetos recém criados.

A grande vantagem de apresentar sua aplicação em um único script é que ele facilita a vida de quem irá responder a pergunta, pois basta um ctrl + c e ctrl + v para ter a aplicação rodando e começar a trabalhar na solução dos problemas apresentados.

Assim acabaríamos com um conteúdo similar ao que segue em app.R.

# antigo global.R
library(shiny)
library(lubridate)

gerar_valores <- function(x) {
  rnorm(x, 10, 2)
}

set.seed(123)

# antigo ui.R
ui <- fluidPage(
  column(
    6,
    sliderInput("n", "Quantidade de observações", 30, 100, 65),
    plotOutput("hist")
  ),
  column(
    6,
    selectInput("dados", "Selecione o conjunto de dados",
                choices = list(carro = mtcars, flores = iris)),
    plotOutput("plot")
  )
)

# antigo server.R
server <- function(input, output, session) {
  output$hist <- renderPlot({
    hist(gerar_valores(input$n))
  })

  output$plot <- renderPlot({
    plot(input$dados)
  })
}

shinyApp(ui, server)

Passo 2: Isole o problema

Na aplicação do script acima temos dois inputs e dois outputs, mas o problema está relacionado apenas a um conjunto de input/output.

Fornecer todo o código da aplicação na pergunta, antes de ajudar irá atrapalhar. Isso ocorre porque quem for se debruçar sobre o problema terá um trabalho a mais (identificar de que parte do script vem o erro). Em alguns casos, isso pode fazer inclusive com que desista de ajudar.

Para isolar o problema basta se livrar de todo o código que não tem relação com ele. No exemplo acima isso quer dizer remover todo do código relacionado a criação dos histogramas tanto na ui quanto no server. Assim teríamos:

# antigo global.R
library(shiny)

# antigo ui.R
ui <- fluidPage(
  selectInput("dados", "Selecione o conjunto de dados",
              choices = list(carro = mtcars, flores = iris)),
  plotOutput("plot")
)

# antigo server.R
server <- function(input, output, session) {
  output$plot <- renderPlot({
    plot(input$dados)
  })
}

shinyApp(ui, server)

Resultado obtido

Para compartilhar o resultado obtido com o código compartilhado há, pelo menos, 3 opções.

  1. Descrever o comportamento indesejado encontrado;

  2. Compartilhar um link para a aplicação com o problema. Dentre os serviços que podem hospedar seu posso citar o shinyapps.io e o now.sh.

  3. Compartilhar uma screenshot da aplicação com o problema.

Independente do método que escolher, não esqueça de compartilhar mensagens de erro ou avisos tanto do console quanto da ui da aplicação.

No caso acima teríamos algo como:

A lista de opções, no lugar de apresentar os nomes dos conjuntos de dados, apresenta uma série de nomes e números, conforme tela abaixo. Também recebo estes erros em meu console:

Warning in min(x) : nenhum argumento não faltante para min; retornando Inf

Warning in max(x) : nenhum argumento não faltante para max; retornando -Inf

Warning: Error in plot.window: valores finitos são necessários para 'ylim' [No stack trace available]

tela de erro

Resultado esperado

Para explicar o resultado que esperava vejo 3 opções:

  1. Descrever com palavras o resultado esperado;

  2. Compartilhar um link para um caso (outra aplicação ou página) que esteja servindo de inspiração;

  3. Rodar o resultado desejado fora do e compartilhá-lo.

No exemplo fictício, poderia ser algo como.

Consigo o resultado que espero com o comando

plot(mtcars)

Por que ele não funciona dentro do ?

Outros materiais (HTML/CSS/JS)

Os mesmos princípios usados para o código podem ser usados para as demais linguagens: compartilhe somente o essencial e se estiver relacionado ao problema compartilhado. Compartilhe cada um em um pedaço próprio de código dentro da pergunta. Algo como:

Este é o que estou usando:

.resultado {
  background-color: green;
}

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .