如何添加指向“浏览”按钮闪亮应用程序的链接

Question

我想知道如何在闪亮的应用程序的“浏览”按钮中添加“示例文件”，因此其对齐方式很好吗？ 我找到了使用标签$ ....的示例，但该链接未正确对齐浏览器按钮。我的结果：

我想要这样：

我的代码：

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") )

感谢您的帮助。 谢谢。

Answer 1

我希望这是您要实现的目标。

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") )
)
)