Tiles / Notecards - Нажмите на анимацию - Shiny R

Question

В основном я хочу, чтобы на панели инструментов была сетка плиток, чтобы при щелчке пользователем одного из плиток возникало анимирование, при котором все остальные плитки исчезают, а тот, по которому щелкнул пользователь, перемещается в центр страницы и появляется некоторый текст.,Это возможно в блестящем?

library(shiny)
library(plotly)
library(DT)
library(FinCal)
library(scales)
library(shinythemes)
library(leaflet)
library(dplyr)
library(tidyr)
library(rgdal)
library(readxl)
library(TileMaker)
library(dplyr)
library(Rcpp)
library(rlang)
library(purrr)
library(shinyanimate)

Div1 <- div_maker(
  solo_box(txt = "Example", type = "default", div(img(src="Ex.png", height = 300, width = 300))))

ui <- 
  shinyUI(
  fluidPage(theme = shinytheme("cosmo"), withAnim(),
  navbarPage( 
              tabPanel("Dashboard", fluidRow(column(3, finisher(css = "https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css",
                         file = NULL, textModifier = "h1", actionLink(inputID = "button", label = NULL, Div1))




                         ))))))



#HTML('<div data-iframe-height></div>')



  server <- function(input, output, session) {

}
# Run the application 
shinyApp(ui = ui, server = server)