Buenas noches y gracias por leerme

Estoy trabajando en una aplicación protegida con un administrador brillante y me gustaría agregar una animación inicial al panel de inicio, pero lo que he intentado hasta ahora no funciona. ¿Alguien sabe si es posible agregar dicha animación? ¿O alguna forma de corregir el código para que funcione? Aprecio tu ayuda

El código que estoy usando es el siguiente:

 js <- " $(document).ready(function(){ $('#plotContainer').on('show', function(event){ $(this).css('opacity', 0).animate({opacity: 1}, {duration: 1000}); }); }); " credentials <- data.frame( user = c("shiny", "shinymanager"), password = c("azerty", "12345"), stringsAsFactors = FALSE ) library(shiny) library(shinymanager) ui <- fluidPage( tags$h2("My secure application"), verbatimTextOutput("auth_output") ) ui <- secure_app( tags$head(tags$script(HTML(js))), ui, choose_language = TRUE) server <- function(input, output, session) { res_auth <- secure_server( check_credentials = check_credentials(credentials) ) output$auth_output <- renderPrint({ reactiveValuesToList(res_auth) }) observe({ print(input$shinymanager_where) print(input$shinymanager_language) }) } shinyApp(ui, server)