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 shiny é como implantar estes princípios.
Estes princípios podem ser resumidos assim:
- Compartilhe os dados utilizados (ou ao menos um parte deles);
- Compartilhe um código mínimo que reproduz o problema
- Compartilhe o resultado obtido (mensagens de erro, avisos ou telas geradas);
- Compartilhe qual seria o resultado esperado com o código compartilhado;
- Compartilhe as informações de sessão (versão do r, pacotes usados) com
sessionInfo()
.
Como os itens 1 e 5 são resolvidos da mesma maneira do que para o r 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 shiny?
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 shiny.
Nesta etapa caso haja um global.R
nesse shiny, 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.
Descrever o comportamento indesejado encontrado;
Compartilhar um link para a aplicação com o problema. Dentre os serviços que podem hospedar seu shiny posso citar o shinyapps.io e o now.sh.
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]
Resultado esperado
Para explicar o resultado que esperava vejo 3 opções:
Descrever com palavras o resultado esperado;
Compartilhar um link para um caso (outra aplicação ou página) que esteja servindo de inspiração;
Rodar o resultado desejado fora do shiny 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 shiny?
Outros materiais (HTML/CSS/JS)
Os mesmos princípios usados para o código r 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 css que estou usando:
.resultado {
background-color: green;
}