Заговор в Блестящем

Question

Я делаю график с сюжетом в блестящем, однако я не могу увидеть график с изменениями selectInput. Приложение работает без ошибок, но показывает только таблицу, а не график.

library(shiny)
library(plotly)
require(viridis)

BD2=read.table('Alumbrado_Bogota.txt',sep = '\t',header = TRUE)
names(BD2)[2]='TECNOLOGIA'

ui <- fluidPage(

    # Application title
    titlePanel("MODERNIZACIÓN DEL ALUMBRADO PÚBLICO"),

    # Sidebar  
    sidebarLayout(
        selectInput('Loc', 'Localidad', unique(BD2$Id_Loc), selected = NULL, multiple = FALSE,
                    selectize = TRUE, width = NULL, size = NULL),
        mainPanel(
           tableOutput('T_AlumbradoP'), 
           plotOutput('G_AlumbradoP')
        )
    )
)

server <- function(input, output) {
    BD<- reactive({BD2[BD2$Id_Loc == input$Loc,]})

    output$T_AlumbradoP<-renderTable(BD())

    output$G_AlumbradoP <- renderPlotly({
        plot_ly(data=BD(),
                x=~FECHA, 
                y=~Cant, 
                color=~TECNOLOGIA,colors = viridis_pal(option = "D")(4))%>%
            add_bars()%>%
            layout(barmode="stack",
                   title=paste("MODERNIZACIÓN DEL ALUMBRADO PÚBLICO","\n",input$Loc),
                   xaxis = list(title ="Fecha de Revisión"),
                   yaxis = list(title ="Cantidad de Luminarias")) 
    })
}