Как добавить ссылку на кнопку «Просмотреть» - PullRequest
Новая
       73

Как добавить ссылку на кнопку «Просмотреть»

0 голосов
/ 23 января 2020

Мне интересно, как добавить «Файл примера» к кнопке «Обзор» в блестящем приложении, чтобы оно выровнялось? Я нашел примеры использования тегов $ ...., но ссылка неправильно выровнена по кнопке браузера. Мои результаты:

enter image description here

Я бы хотел, чтобы это было так:

enter image description here

Мой код: 

tags$a(href ="data/INPUT.txt",
       target="_blank",
       "EXAMPLE_test"), 

fileInput(inputId  = "InputFile",
          label    = "Choose File",
          multiple = TRUE,
          accept   = c("text",
                       "text/comma-separated-values,text/plain",
                       ".txt") )

Любая помощь приветствуется. Спасибо.

1 Ответ

2 голосов
/ 23 января 2020

Надеюсь, это то, чего вы пытаетесь достичь. 

ui <- shinyUI(fluidPage(
  fileInput(inputId  = "InputFile",
            label    = tags$a(href = "data/INPUT.txt",
                              target = "_blank",
                              "EXAMPLE_test"),
            multiple = TRUE,
            accept   = c("text",
                         "text/comma-separated-values,text/plain",
                         ".txt") )
)
)
...