R 如何添加自定义输入按钮？（最简单的例子）

我正在编写第二个R Shining应用程序，我的知识正在增长。
但是我的HTML、CSS和JS技能仍然很差。
我想知道如何在R Shining应用程序中添加自定义按钮。

我们可以用软件包或其他东西轻松创建一个新按钮吗？
您能帮我演示一下如何实现一个按钮吗。
我尝试了很多东西，但都失败了。
出于培训的目的，我正在尝试实现一个在互联网上找到的小工具（详情如下）

假设我想添加两个按钮： 按钮1 按钮2

我想将其添加到R Shining中：默认视图为灰色正方形，但悬停时以黄色高亮显示

如果多次单击所述按钮，值将如下增长：
单击按钮0->c（“0”）
双击按钮0->c（“0”，“0”）

（最后，我想知道如何添加“CLEAR”按钮来清空字符串向量）

想法和原始资料来源于：
原始网站：www（dot）ookii（dot）org/Software/Dni
对应的JS:www（dot）ookii（dot）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)

库（闪亮）
#定义每加仑英里数应用程序的用户界面----
ui您应该用单独的代码重新格式化您的问题。另外，请明确说明您的问题。请添加您的支持图片以便更好地理解。现在是否更好？