wikicompare/app.R

library(tidyverse)
library(httr)
library(rvest)
library(DT)

options(DT.options = list(paging = F,
                          searching = T,
                          info = F,
                          dom = "Bfrtip",
                          buttons = c("copy", "excel")))

ui <- fluidPage(
  inputPanel(
    textInput("wiki_url", "Wikipedia comparison page"),
    actionButton("go", "Load tables")
             )
  )

server <- function(input, output, session)
{
  tables <- eventReactive(input$go,{
    GET(url) %>%
      content %>%
      html_table(fill = T)
  })
}


  reduce(inner_join) %>%
  mutate_if(is.character, factor) %>%
  datatable(filter = "top")