Question

我使用RStudio的Shiny进行基本的MBTI个性测试。用户回答四个问题，并获得他的个性类型（例如ENTJ）以及与维基百科的相应链接以阅读关于他的类型的更多信息（例如https://en.wikipedia.org/wiki/ENTJ）。

要做到这一点，首先，我使用actionButton，如here所述。其次，我在server.R中使用了一堆函数来创建一个可用的weblink：

    Error in cat(list(...), file, sep, fill, labels, append) : 
  argument 1 (type 'list') cannot be handled by 'cat'

}）

问题是，当我运行应用程序时，init $ pasted工作得很好，而init $ linktext没有 - 说

{{1}}

任何想法如何解决？谢谢！

Answer 1

a(...)的输出是一个列表，无法使用renderText呈现。您可以在服务器端的htmlOutput和ui.R中使用renderUI，这是一个示例：

server <- function(input, output) {
        output$html_link <- renderUI({
                a("Find out more about it here", href=paste("https://en.wikipedia.org/wiki/","a","b","c","d", sep=""), target="_blank") 
        })
}

ui <- shinyUI(fluidPage(
        htmlOutput("html_link")
))

shinyApp(ui = ui, server = server)

在R中使用Shiny：如何在输出中使weblink工作

1 个答案: