使用actionButton在RShiny

我工作中閃亮的一個Web應用程序發送電子郵件。我對R很熟悉，但是我對HTML，CSS，jQuery等方面的知識缺乏，這使得格式化事情變得非常具有挑戰性。使用actionButton在RShiny

我想包括actionButton，用戶可以點擊發送電子郵件到管理員的問題或疑慮。這裏是我到目前爲止，哪種作品，但很令人髮指：

library(shiny) 
ui <- shinyUI(fluidPage(
    # Set layout/format for app 
    sidebarLayout(
    sidebarPanel(
     downloadButton("download_data", "Download this Data"), 
     br(), 
     actionButton(inputId = "email1", 
        icon = icon("envelope", lib = "font-awesome"), 
        a("Contact Admin", 
         href="mailto:my_awesome_email_address.com")) 
    ), 
    mainPanel(), 
    position = "left" 
) 
) 
) 

server <- shinyServer(function(input, output) {}) 
shinyApp(ui, server)

如果可能的話，我想使用，以保持相同的按鈕格式跨越兩個按鈕，類似的actionButton什麼保持。

在此先感謝！

來源

2017-07-28 kfurlong

好，嗯，這很煩人。討厭成爲那些回答自己的問題的人之一，但這裏有：

我玩弄了我的代碼中不同tags的排序，並意識到我當前的代碼是錯誤的，因爲我只是說明我想要該按鈕的文本鏈接到我的電子郵件地址，而不是按鈕本身。爲了解決這個問題，我翻轉actionButton的嵌套和a()標籤得到如下：

a(actionButton(inputId = "email1", label = "Contact Admin", 
       icon = icon("envelope", lib = "font-awesome")), 
    href="mailto:my_awesome_email_address.com")

點擊按鈕的任何地方自動打開了mailto爭吵後的電子郵件地址，以給定的電子郵件地址。不需要額外的HTML或CSS編碼。希望這可以幫助別人，這樣他們可以花時間做更有價值的事情，而不是花費數小時搜索互聯網。

來源

2017-07-28 19:06:50 kfurlong

使用actionButton在RShiny

回答

相關問題