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({