Как вы можете добавить пользовательские R блестящие кнопки ввода? (минимальный пример)

Question

Я программирую свое второе приложение R Shiny, и мои знания растут.
Но мои навыки в HTML, CSS и JS все еще плохие.
Мне интересно, как добавить пользовательские кнопки в блестящем приложении R.

Можем ли мы сделать это легко с помощью пакета или чего-то еще, чтобы создать новую кнопку?
Можете ли вы помочь мне и показать, как реализовать одну кнопку пожалуйста.
Я перепробовал много вещей, и я потерян.
В целях обучения я пытаюсь реализовать небольшой инструмент, найденный в inte rnet (подробности ниже)

Пусть говорит, что я хочу добавить 2 кнопки: Button1 Button2

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

Если происходит многократное нажатие на указанную кнопку, значение будет расти следующим образом:
Один щелчок по Button0-> c ("0")
Два щелчка по Button0-> c ("0", "0")

(в конце концов, я хотел бы знать, как добавить кнопку "CLEAR", чтобы очистить кольцо вектора)

Идея и исходные материалы получены от:
Оригинальный сайт: www(dot) ookii (точка) org / Software / Dni
Соответствующий JS: www(dot) ookii ( точка) org / Scripts / dni. js

---

РЕДАКТИРОВАТЬ 1:

Минимальный пример

Вот минимальный пример кода, с которым я борюсь

library(shiny)

# Define UI for miles per gallon app ----
ui <- pageWithSidebar(
  # App title ----
  headerPanel("Miles Per Gallon"),

  # Sidebar panel for inputs ----
  sidebarPanel(),

  # Main panel for displaying outputs ----
  mainPanel(
    tags$head(
      tags$style(HTML("div.dniButton
                      {
                       overflow: hidden;
                       height: 27px;
                       width: 34px;
                       float: left;
                       margin: 3px;
                       }
                       div.dniButton:hover input
                       {
                       margin-top: -27px;
                       }"))
      ),
    tags$button(
      id = "dni0",
      class = "dniButton",
      img(src = "http://www.ookii.org/Content/software/images/dni/button0.png"))
  )
)

# Define server logic to plot various variables against mpg ----
server <- function(input, output) {

}
shinyApp(ui, server)

Текущий вид кнопки

WANTED BEHAVIOR

Я не знаю, как сделать Кнопка, подобная этой:

Затем при наведении на нее она должна стать желтой:

При наведении Также должна отображаться всплывающая подсказка с указанием 0

. При нажатии этой кнопки она отправляет «0» (символ) на R глянцевый сервер

.