У меня очень большое блестящее приложение, в котором у меня есть несколько FluidRow, и у каждого FluidRow есть несколько элементов Box, и я хочу создать функцию hover для всех своих элементов Box в FluidRow.
library(shiny)
# library(rintrojs)
ui <- shinyUI(fluidPage(
fluidRow(
box(
# h3(strong("OVERALL")),
title = #h3(strong("OVERALL")),
"OVERALL",
width = 12,
status = "primary",
target = 'row',
solidHeader = TRUE,
align='center',
collapsible = FALSE,
DT::dataTableOutput("tab_PF1")
)
)
))
server <- shinyServer(function(input, output) {#Server file end
})
shinyApp(ui = ui, server = server)
Просмотрблестящие учебники я мог видеть, что функциональность наведения применима только к imageOutput и plotOutput
функциональность наведения, объясненная приложением rshiny
Так есть ли какое-то решение для этого, которое я могуприменить наведите курсор на элементы моей коробки?Пожалуйста, помогите ... Код является лишь примером этого.пожалуйста, отрегулируйте, и было бы здорово, если бы вы предоставили решение в том же духе.