基本上我想在我的仪表板上有一个网格图块，当用户单击一个图块时，会出现一种类似的情况，即所有其他图块都消失了，而用户单击的图块则朝页面中心移动，并且出现了一些文本。这可能有光泽吗？
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)