在Shiny

Question

我试图将链接作为变量传递给以下代码。

paste0(course$Students, "<br>", tags$a(href="x", "Click here!"))

在这里，我在课程（位于 course $ Students ）中传递特定数据点的学生人数;但是，每个数据点在 course $ Link 下也有一个与之关联的特定链接。

如何告诉Shiny将 course $ Link 代替x，即选择链接动态？

Answer 1

您可以使用uiOutput / renderUI在Shiny中创建动态UI。

以下是一个例子：

ui <- fluidPage(
  selectInput("chooseLink", "Link Address", choices = c("Amazon", "Google")),
  uiOutput("hyperlink")
)

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

  output$hyperlink <- renderUI({
    if (input$chooseLink == "Amazon"){
      link <- "https://www.amazon.com/"
    }else if(input$chooseLink == "Google"){
      link <- "https://www.google.com/"
    }

    tags$a(href = link, paste("To", input$chooseLink))

  })

}

你动态选择链接可能在你的情况下改变的方式（我不熟悉你的数据格式，所以我不能确切地说你将如何做），但重点仍然是相同，它将允许您在UI中拥有动态元素。