R：与Rvest结合

我正在尝试将R Shining与

rvest

软件包一起使用，这样当选择一个日期作为输入时，我就可以根据它查找网页并刮取一些数据。当我输入完整地址时，它会工作，但当我尝试组合反应式

input$date

时，我会收到一条错误消息，“无法将类型闭包强制为vector或type character”。我一直在四处寻找，找不到解决办法

ui <- fluidPage(
  column(4,wellPanel(
    dateInput('date',
              label = 'Date Input: yyyy-mm-dd',
              value = Sys.Date())
    )
  ),
  column(6,
     verbatimTextOutput("Name")
  )
)

server <- function(input, output){
  output$Name <- renderText({
    paste(as.character(Name))
  })
  ds <- reactive({input$date})
  address <- paste0("http://www.baseballpress.com/lineups/",ds)
  BBPress <- html(address)
  Name <- BBPress %>%
    html_node(".player-link") %>%
    html_text()
}

shinyApp(ui = ui, server = server)

ui