Hi, I got this error in R console when I try to deploy a Shiny App:
Error in ``` `$<-.data.frame`(`*tmp*`, "config_url", value = "https://www.shinyapps.io/admin/#/application/") :
replacement has 1 row, data has 0```
My code is this:
library(shiny)
library(rvest)
library(plotly)
library(ggplot2)
dades <- read.csv('valor_jugadores2.csv', header = TRUE, sep = ";", stringsAsFactors = F)
dades$Fecha <- as.Date(dades$Fecha,"%d/%m/%Y")
dades<-dades[order(dades$Jugador,decreasing = F),]
data<-levels(as.factor(dades$Equipo))
jugadors<-levels(as.factor(dades$Jugador))
equipo<-levels(as.factor(dades$Equipo))
plataforma<-levels(as.factor(dades$Plataforma))
valor<-levels(as.factor(dades$Valor))
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("Plataforma","Selecciona Plataforma", plataforma),
selectInput("Equipo", "Selecciona Equipo", equipo),
selectInput("Jugador","Selecciona Jugador", jugadors)
),
mainPanel(plotlyOutput("result"))
)
)
server <- function(session,input, output) {
observe({
firstfilter <- dades %>% filter(Plataforma == input$Plataforma) %>% select(Equipo)
updateSelectInput(session,"Equpio", "Selecciona Equipo", choices = unique(firstfilter))
})
observe({
secondfilter <- dades$Jugador[dades$Equipo == input$Equipo & dades$Plataforma == input$Plataforma]
updateSelectInput(session,"Jugador","Selecciona Jugador", choices = unique(secondfilter))
})
output$result<-renderPlotly({
dades_graf <- dades[which(dades$Plataforma==input$Plataforma & dades$Jugador==input$Jugador),]
p <-plot_ly(data=dades_graf, x= dades_graf$Fecha, y= dades_graf$Valor, type = 'scatter', mode = 'lines+markers') %>%
layout(separators= ",.",
autosize = TRUE,
title="Valor Jugadores",
xaxis=list(title="Fecha"),
yaxis=list(title="Valor", tickformat= ",d"))
})
}
And the browser shows me this:
Can you help me please?
Thank you!! 