从 R 中的网站提取数据并将它们显示为 R 表

Question

我正在尝试构建一个闪亮的财务仪表板，但我卡在了第一步。我想写一篇如下表

来自https://stockanalysis.com/stocks/

并在我闪亮的环境中将其显示为表格。类似于我在下面的内容，但表格应显示来自任一链接的内容，而不是随机正态分布。

library(shiny)

ui <- fluidPage(
  sliderInput(inputId = "num", 
    label = "Choose a number", 
    value = 25, min = 1, max = 100),
  dataTableOutput("T")
)

server <- function(input, output) {
  output$T <- renderDataTable({
    data.frame(x=rnorm(input$num))
  })
}

shinyApp(ui = ui, server = server)

Answer 1

您需要使用 R 中的 rvest 库来抓取表格。 您可以使用安装包 install.packages("rvest").

要抓取表格，您需要检查网页并找出表格 ID。它看起来像这样：

代码如下：

library(rvest)
library(dplyr)
url <- ("https://stockanalysis.com/stocks/")

page <- read_html(url)

stocks <- page %>%
  html_nodes('table#symbol-table') %>%
  html_table() %>% .[[1]]

整个 Shiny App 将如下所示：

library(shiny)
library(rvest)
library(dplyr)

url <- ("https://stockanalysis.com/stocks/")

page <- read_html(url)

page

stocks <- page %>%
  html_nodes('table#symbol-table') %>%
  html_table() %>% .[[1]]

ui <- fluidPage(
  sliderInput(inputId = "num", 
              label = "Choose a number", 
              value = 25, min = 1, max = 100),
  dataTableOutput("T")
)

server <- function(input, output) {
  output$T <- renderDataTable({
    stocks
  })
}

shinyApp(ui = ui, server = server)