Кнопка действия, которая подключается к Skype в блестящем приложении - PullRequest
Новая
       15

Кнопка действия, которая подключается к Skype в блестящем приложении

0 голосов
/ 13 февраля 2019

У меня есть приложение Shiny, в котором есть кнопка действия, которая должна подключаться к Skype, чтобы люди могли напрямую общаться со мной.Ниже приведен код, который я пробовал, однако при нажатии кнопки действия ничего не происходит. 

library(shiny)
library(shinydashboard)

rm(list=ls())

header <- dashboardHeader()
sidebar <- dashboardSidebar(
  sidebarMenu(id = "menuChoice",
          menuItem("Resources", tabName = "ResourcesMenu", icon = icon("leaf"),
                   menuSubItem("Filter Selection", tabName = 
"LayoutSubMenu", icon = icon("angle-double-right")),
                   menuSubItem("Test", tabName = "Test2", icon = icon("globe")),
                   menuSubItem("Test 3", tabName = "Test3", icon = icon("wrench"))
          ),
          menuItem("Trial Run", tabName = "TR", icon = icon("star"))
  )
)

body <- dashboardBody(
  uiOutput("TabSelect"),

#This action button is where I need help
  a(actionButton(inputId = "phone", 
             label = "867-5309", 
             icon = icon("fab fa-skype", lib = "font-awesome")
  ),
  href="skype:LastName, FirstName?chat"
  )
)


ui <- dashboardPage(header, sidebar, body)

server <- function(input, output, session) {

  output$TabSelect <- renderUI ({
    selectInput(inputId = "LoadTab", "Available Tabs",
            choices = c(input$menuChoice)  
    )
  })
}

shinyApp(ui, server)
...