Skip to main content
corrige erros de digitação
Fonte Link
Tomás Barcellos
  • 5,8mil
  • 2
  • 16
  • 40

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 que compartilhado. Compartilhe cada um ema umaem um pedaço próprio de código dentro da pergunta. Algo como:

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 que compartilhado. Compartilhe cada um ema uma pedaço próprio de código dentro da pergunta. Algo como:

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:

Fonte Link
Tomás Barcellos
  • 5,8mil
  • 2
  • 16
  • 40

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 que compartilhado. Compartilhe cada um ema uma pedaço próprio de código dentro da pergunta. Algo como:

Este é o que estou usando:

.resultado {
  background-color: green;
}