R Shiny checkboxGroupInput，将选项文本显示为Web链接

Question

我正在尝试使用checkboxGroupInput将复选框旁边的文本显示为链接。我想要的每个选项1,2和＆amp; 3链接到单独的网页，无论是否检查框。这是我失败的ui.r代码：

library(shiny)
shinyUI(fluidPage(

sidebarLayout(
sidebarPanel(
  h3("User Options"),
  checkboxGroupInput("options",
                     label = h6("Select options"),
                     choices = list(
                       a("option 1",href = "http://www.option1.com") = "option_1",
                       a("option 2",href = "http://www.option2.com") = "option_2",
                       a("option 3",href = "http://www.option3.com") = "option_3"
                     ))                              
    ), #end sidebar Panel    
mainPanel("other stuff"              
    ) #end mainPanel       
) #end sidebarLayout        
) #end fluidPage
) #end ShinyUI

以及相应的server.r代码：

shinyServer(function(input, output){})

我收到的错误是：

Error in parse(text = lines, srcfile = srcfile) : 
C:/Users/myname/Documents/R/test/ui.R:12:74: unexpected '='
11:                          choices = list(
12:                            a("option 1",href = "http://www.option1.com") =
                                                                            ^

正如您所看到的，我尝试使用（）来显示我的链接。是否有另一种方法可以做到这一点，或者这是不能用光泽完成的事情。

非常感谢任何帮助。

谢谢，

-Jeff