|
|
@@ -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") |