Отображать текст только при наведении

Question

Я работаю над блестящим приложением, в котором я хочу, чтобы ввод текста происходил только при наведении курсора мыши или над действием

Я попытался добавить кнопку действия

Пользовательский интерфейс:

fluidRow(box (title = p("Rates by Gender and Race", actionButton("titleBtId", "", icon=icon('question-circle'),class = "btn-xs", title = "Info"),textOutput("text_id"),hover=T), width = 15, status = 'primary', solidHeader = TRUE,tabPanel('',plotlyOutput("racegender",height = "100%"))%>% withSpinner(color="#0dc5c1")))

Сервер:

output$text_id <- renderText({
  paste0("hi")
})

Я не уверен, как бы я отредактировал его, чтобы отображать только текст при наведении

Answer 1

Альтернативой модальным всплывающим окнам, в зависимости от желаемого пользовательского опыта, является использование всплывающих подсказок из пакета shinyBS, который имеет функции для тонких, но эффективных всплывающих окон и всплывающих подсказок.Ниже приведен пример различной функциональности при наведении или щелчке и размещении всплывающих подсказок в пользовательском интерфейсе или на сервере с аналогичным опытом.Обратите внимание, что теоретически вы можете поместить всплывающую подсказку в пользовательском интерфейсе, используя tipify(), но по какой-то причине это не работает с actionButtons, хотя она продолжает работать для других элементов ввода.

library(shiny)
library(shinyBS)

ui <- fluidPage(
   titlePanel("ShinyBS tooltips"),
   actionButton("btn", "On hover"),
   tipify(actionButton("btn2", "On click"), "Hello again! This is a click-able pop-up", placement="bottom", trigger = "click")
  )

server <- function(input, output, session) {
  addTooltip(session=session,id="btn",title="Hello! This is a hover pop-up. You'll have to click to see the next one.")
}

shinyApp(ui, server)

Answer 2

Работает, используя ModalDialog

Интерфейс пользователя

fluidRow(
box (title = p("Rates by Gender and Race",  tags$head(                                     tags$style(HTML('#titleBtId{background-color:black}'))), actionButton("titleBtId", "", icon=icon('question-circle'),class = "btn-xs", title = "Info"),hover=T), width = 15, status = 'primary', solidHeader = TRUE,                                     tabPanel('',plotlyOutput("racegender",height = "100%"))%>% withSpinner(color="#0dc5c1")))

Сервер:

  observeEvent(input$titleBtId, {
    showModal(modalDialog(
      title = "Note",
      "This chart if independent of Date-range and Age-range selections",
      easyClose = TRUE
    ))
  })