Proof of concept

app.R

@@ -0,0 +1,19 @@
+library(tidyverse)
+library(httr)
+library(rvest)
+library(DT)
+
+options(DT.options = list(paging = F,
+                          searching = T,
+                          info = F,
+                          dom = "Bfrtip",
+                          buttons = c("copy", "excel")))
+
+url <- "https://en.wikipedia.org/wiki/Comparison_of_file_comparison_tools"
+
+GET(url) %>%
+  content %>%
+  html_table(fill = T) %>%
+  reduce(inner_join) %>%
+  mutate_if(is.character, factor) %>%
+  datatable(filter = "top")