markheckmann

# 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

markheckmann

node_barplot2 <- function(obj,
                         col = "black",
                         fill = NULL,
                         beside = NULL,
                         ymax = NULL,
                         ylines = NULL,
                         widths = 1,
                         gap = NULL,
                         reverse = NULL,
                         id = TRUE,

markheckmann

library(colorspace)

polar2cart <- function(r, theta)   # polar to cartesian coords
{
  rad <- theta * pi /180
  cbind(x = r*cos(rad),
        y = r*sin(rad))
}

h <- seq(0, 360, len=150)     # hue values

markheckmann

change_tex_delimiters <- function(x) 
{
  # replace latex equation delimiters ($$) if present
  eq <- which(x == "$$")   # find positions of equations
  if (length(eq) > 0) {
    eq.begin <- eq[c(T,F)]    
    eq.end <- eq[c(F,T)]
    for (i in eq.begin)
      x[[i]] <- "$latex \\displaystyle"
    for (i in eq.end)

markheckmann

shinyServer(function(input, output, session) {

  observe({
    input$btn
    session$sendCustomMessage(type = "resetFileInputHandler", "file1")  
  })
  
})

markheckmann

library(shiny)
library(shinyIncubator)

shinyServer(function(input, output, session) {
  
  output$out2 <- renderPrint({
    "output 2"
  })
  
  output$plot <- renderPlot({

markheckmann

// Execute function body when the HTML document is ready
$(document).ready(function() {
  
    // javascript code to send data to shiny server
    document.getElementById("mydiv").onclick = function() {
        var number = Math.random();
        Shiny.onInputChange("mydata", number);
    };
  

markheckmann

library(shiny)

shinyServer( function(input, output, session) {
  
  output$results <- renderPrint({
    input$mydata
  })
  
  # observer if value of the data sent from the client changes
  # if yes generate a new random color and send it back to 

markheckmann

library(shiny)

shinyServer( function(input, output, session) {
  
  output$results <- renderPrint({
    input$mydata
  })
  
})

markheckmann

### DATA PREP ###
# loading the unemployment data
unempl <- read.delim2(file="./data/data_germany_unemployment_by_
                     county.txt", header = TRUE, sep = "\t",
                     dec=",", stringsAsFactors=F)

# due to Mac OS encoding, otherwise not needed
gadm_names <- iconv(gadm$NAME_3, "ISO_8859-2", "UTF-8")   

# fuzzy matching of data: quick & dirty