holgerman

library(MatchIt)
library(data.table)
library(magrittr)

set.seed(1902)

cascon = data.frame(rbind(data.table(atr1 = rnorm(100), atr2 = rnorm(100), gruppe = 1),
                          data.table(atr1 = rnorm(100), atr2 = rnorm(100), gruppe = 0))
                    , row.names = paste0("id", 1:200))

holgerman

---
title: "Research pipeline"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    theme: yeti
---

```{r include=FALSE}
library(tidyverse)

holgerman

# remove sheet protection in Excel
# Sample file: https://www.dropbox.com/s/4ul0kowrscyr8cz/excel_protected.xlsx?dl=0
 
library(stringr)
library(zip)

# file with protected sheets
file <- "data/excel_protected.xlsx"

# file name and path after removing protection

holgerman

library(shiny)
library(ggplot2)

shinyServer(function(input, output) {

  dataset <- reactive({
    diamonds[sample(nrow(diamonds), input$sampleSize),]
  })

  output$plot <- renderPlot({