Использование текста гиперссылки в R блестящей приборной панели - PullRequest
Новая
       37

Использование текста гиперссылки в R блестящей приборной панели

0 голосов
/ 14 января 2019

В настоящее время я пытаюсь создать блестящую приборную панель R, и я хочу создавать части, где я делаю ссылки на веб-сайты и даю информацию о них. Сначала я запустил панель управления в автономном режиме и просто запустил скрипт, превращающий URL в строку, а затем использовал его позже. Я хочу разместить его на блестящем сейчас, и я не могу заставить R запустить строки сначала, так что подумайте, что мне нужно сделать это по-другому.

Моя первая попытка на приборной панели ниже: 

  dashboardHeader(title = "dashboard"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("ex1?", tabName = "ex1", icon = icon("arrow-circle-right")),
      menuItem("ex2", tabName = "queries", icon = icon("envelope")),
      menuItem("ex3", tabName = "QMI", icon = icon("folder-open")),
      menuItem("ex4", tabName = "Newport", icon = icon("arrow-circle-right"))
    )
),
  dashboardBody(
    tabItems(
      tabItem(tabName = "Main",
              h3("What we do?", tags$br(),
              h4(box("text")
),
              tabBox(
              title = "Core publications",
              id = "tabset1", height = "200px", width = 5,
              tabPanel("link1", tagList(link1_url),tags$br(),"text"),
              tabPanel("link2",tagList(link2_url),tags$br(), "text"),
              tabPanel("link3",tagList(link3_url),tags$br(), "text3")
),

Файл строки имеет, например,

ex1_url <- a("text", href="https://www.exampleurl.com")

Итак, в текущем коде, когда панель мониторинга активна, она падает, поскольку у нее нет места назначения для гиперссылок, мне нужен способ связать фоновый URL с текстом в пользовательском интерфейсе.

Я чувствую, что не настроил это наилучшим образом, поэтому любая помощь будет оценена.

Спасибо

...