rm(list = ls())
library(shiny)
library(dplyr)
library(countrycode)
getwd()
source("../../R/ImportData.R", local = TRUE)
ImportData("../../extdata/results.csv")
function(input, output, session) {
# Combine the selected variables into a new data frame
Spiele <- reactive({
data %>%
filter(Mannschaft == input$man1,
Gegner == input$man2) %>%
select (Tore, Gegentore)
})
output$plot1 <- renderPlot({
plot(Spiele())
})
# Ergebnisse <- reactive({
# Spiele() %>%
# select("Ergebnis") %>%
# table()
# })
# output$plot2 <- renderTable({
# Ergebnisse()
# })
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.