与shinyalert在R的无线电小组

我想在shinyalert模式窗口中粘贴无线电组，并在其关闭（按OK）后访问所选结果。正如包作者@DeanAttali所说，任何HTML输入都可以使用

我的问题：

1） 我不明白如何在广播组中添加inputId

2） 每个收音机的标签呈现在下面（不是内联的，请参见代码示例）

3） 输入字段（文本输入）在收音机之后呈现，但我不希望使用它

library(shiny) 
library(shinyalert)
shinyApp( 
  ui = fluidPage( 
    useShinyalert(),
    actionButton("btn", "Click me") ), 

  server = function(input, output) { 
    observeEvent(input$btn, {
      # Show a simple modal 
      shinyalert(title = "You did it!", type = "input",inputType = "radio",text=
                   "<style type=\"text/css\">
                .block1 { 
                 padding: 5px;
                 display: inline;
                 vertical-align:middle;
                 } </style> <div class=\"block1\"><input type=\"radio\" id=\"contactChoice1\"
                 name=\"contact\" value=\"email\">
                   <label for=\"contactChoice1\">Email</label></div>
                   <div class=\"block1\"><input type=\"radio\" id=\"contactChoice2\"
                 name=\"contact\" value=\"phone\">
                   <label for=\"contactChoice2\">Phone</label></div>",
                 animation="slide-from-top",html = TRUE)
    })

    # observe({
    #   if(is.null(input$myalert)) // I don't understand where to set ID
    #   {return()}
    #   print(input$myalert)
    # 
    # })
})

库（闪亮）
图书馆（shinyalert）
新亚普（
ui=fluidPage（
useShinyalert（），
操作按钮（“btn”，“单击我”），
服务器=函数（输入、输出）{
observeEvent（输入$btn{
#显示一个简单的模态
shinyalert（title=“你做到了！”，type=“输入”，inputType=“收音机”，文本=
"
.1块{
填充物：5px；
显示：内联；
垂直对齐：中间对齐；
}  
电子邮件
电话“，
animation=“从顶部滑动”，html=TRUE）
})
#观察({
#if（is.null（输入$myalert））//我不知道在哪里设置ID
#{return（）}
#打印（输入$myalert）
# 
# })
})

你试过了吗？@A.苏利曼，谢谢你的建议，但我想向shinyalert澄清这个案子。你试过了吗？@A.苏利曼，谢谢你的建议，但我想向shinyalert澄清这个案子