基于用户url输入在R Shining应用程序中读取html

我正在尝试构建一个闪亮的应用程序，用户可以复制并粘贴一个网址作为文本输入，然后该应用程序将从他们提供的地址中读取web数据。我尝试使用textinput让用户输入他们的web地址，然后使用rvset中的read_html函数读取web数据

在ui方面，我有如下内容：

 conditionalPanel(
        condition = "input.Articlesource == 'Web page'",
        textInput("fileRequest", "Copy and paste link to aritcle here")
      )
    )

在服务器端：

article <- reactive({
if (input$Articlesource == "Web page") {
       read_html(input$fileRequest)      
    } 
})

---

article什么使你相信这不起作用？如果你在这之后对“article”中的内容进行简单的渲染或打印，什么都不会显示。你是说
article
还是
article（）
？是的，article（）。我不能在这里重现错误。请意识到
xml2:：read_html
不会返回控制台上始终可以打印的内容。例如，对我来说，
之类的东西