From 20c347ac8459f9e6181569f8cd510eb88c8cf5fb Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Tue, 2 Jan 2018 01:04:44 +0100
Subject: [PATCH] Shiny skeleton

---
 app.R | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/app.R b/app.R
index f029164..eb08cef 100644
--- a/app.R
+++ b/app.R
@@ -9,11 +9,23 @@ options(DT.options = list(paging = F,
                           dom = "Bfrtip",
                           buttons = c("copy", "excel")))
 
-url <- "https://en.wikipedia.org/wiki/Comparison_of_file_comparison_tools"
+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)
+  })
+}
+
 
-GET(url) %>%
-  content %>%
-  html_table(fill = T) %>%
   reduce(inner_join) %>%
   mutate_if(is.character, factor) %>%
   datatable(filter = "top")