R闪亮超链接动态生成的HTML代码

Question

这是我的另一篇文章Shiny hyperlink relative path to a file的另一次尝试：

简而言之，我想在我闪亮的网页上创建一个超链接，点击它时应打开一个新的HTML页面，其中包含在server.R文件中创建的内容。

以下是我尝试但没有工作的示例代码（Chrome中未找到错误）：

 library(shiny); 
 shinyApp( ui = fluidPage(a("readme",href=htmlOutput("readme"),target="_blank")), 
      server = function(input, output) {
        output$readme<-renderUI({
          htmlcontent <- tags$html( tags$head( tags$title('Content of README.txt')),
                                    tags$body(p(system("cat README.txt",intern=TRUE)))
                                    )
          return(htmlcontent)  
        })  
      })

README.txt与linux服务器上的此应用程序位于同一位置。

任何帮助？