Highcharts exporting problem

A1.txt

"Year" "MeldingsNr" "HF0105" "HF0208" "HF0305" "HF0502" "HF0601" "HF0707" "HF0806" "HF1005" "HF1101" "HF1107" "HF1305" "HF1406" "HF1502" "HF1504" "HF1608" "HF1701" "HF1702" "HF1801" "HF1903"
"1" "2011" 100 58 NA NA NA 19 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"2" "2011" 200 48 NA NA NA 16 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"3" "2011" 250 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"4" "2011" 400 3 NA NA NA 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"5" "2011" 401 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"6" "2011" 602 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"7" "2011" 700 137 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"8" "2011" 750 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"9" "2012" 100 178 NA 40 NA 637 303 NA 98 NA 135 22 NA 39 1 56 NA NA 34 19
"10" "2012" 200 210 NA 47 NA 574 239 NA 82 16 128 20 NA 61 1 88 NA NA 39 16
"11" "2012" 250 7 NA 6 NA 11 3 NA 1 NA NA 1 NA 4 NA NA NA NA 1 NA
"12" "2012" 300 NA NA NA NA NA NA NA NA NA NA NA NA 12 NA NA NA NA NA NA
"13" "2012" 400 3 NA NA NA 92 19 NA 3 NA 8 4 NA 16 NA NA NA NA 1 NA
"14" "2012" 401 NA NA NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA 1 NA
"15" "2012" 450 NA NA NA NA 2 NA NA NA NA NA NA NA 2 NA NA NA NA NA NA
"16" "2012" 500 NA NA 7 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"17" "2012" 602 NA NA NA NA 1 NA NA NA NA 3 NA NA NA NA NA NA NA NA NA
"18" "2012" 700 19 3 81 NA 532 514 NA NA NA 72 15 NA 47 NA 41 NA NA 368 1
"19" "2012" 750 NA NA 1 NA 7 3 NA NA NA NA NA NA 1 NA 1 NA NA 4 NA
"20" "2013" 100 181 3 411 1 364 146 56 202 NA 189 52 15 48 30 232 45 6 102 258
"21" "2013" 200 191 NA 500 NA 351 138 59 114 74 174 59 15 63 31 173 41 7 103 283
"22" "2013" 250 7 NA 37 NA 13 5 6 3 2 5 NA 2 9 1 3 1 NA 2 9
"23" "2013" 300 NA 1 218 NA NA NA NA 49 NA NA NA NA 9 14 6 NA NA 2 NA
"24" "2013" 350 NA 1 14 NA NA NA NA 2 NA NA 3 NA NA NA NA NA NA 1 NA
"25" "2013" 400 12 NA 115 NA 13 NA 14 53 9 1 NA NA 7 21 1 19 4 1 NA
"26" "2013" 401 NA 1 32 NA 4 1 NA NA NA NA NA NA NA NA NA NA NA NA NA
"27" "2013" 450 NA 1 6 NA NA NA 1 5 NA NA NA NA NA 4 NA 1 NA 1 1
"28" "2013" 500 NA NA 634 NA NA NA NA 71 NA NA NA NA NA 68 7 NA NA NA NA
"29" "2013" 550 NA NA 13 NA NA NA NA NA NA NA NA NA NA 2 NA NA NA 1 NA
"30" "2013" 601 NA NA 9 NA NA NA NA 2 NA NA NA NA NA NA NA NA NA 1 NA
"31" "2013" 602 NA NA NA NA NA NA NA NA 1 NA NA NA NA NA NA NA NA NA NA
"32" "2013" 652 NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"33" "2013" 700 14 6 979 NA 618 641 40 1 NA 487 42 9 46 21 139 NA NA 760 46
"34" "2013" 750 NA 1 48 NA 13 8 4 NA NA 7 NA 1 3 NA 1 NA NA 11 1

A2.txt

"Year" "Alder" "HF0105" "HF0208" "HF0305" "HF0502" "HF0601" "HF0707" "HF0806" "HF1005" "HF1101" "HF1107" "HF1305" "HF1406" "HF1502" "HF1504" "HF1608" "HF1701" "HF1702" "HF1801" "HF1903"
"1" "2011" 27 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"2" "2011" 29 NA NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"3" "2011" 35 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"4" "2011" 36 5 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"5" "2011" 39 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"6" "2011" 40 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"7" "2011" 41 NA NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"8" "2011" 43 5 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"9" "2011" 44 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"10" "2011" 45 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"11" "2011" 46 3 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"12" "2011" 47 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"13" "2011" 48 5 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"14" "2011" 49 7 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"15" "2011" 50 3 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"16" "2011" 51 7 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"17" "2011" 52 3 NA NA NA 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"18" "2011" 53 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"19" "2011" 54 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"20" "2011" 55 11 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"21" "2011" 56 11 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"22" "2011" 57 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"23" "2011" 58 10 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"24" "2011" 59 8 NA NA NA 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"25" "2011" 60 8 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"26" "2011" 61 7 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"27" "2011" 62 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"28" "2011" 63 15 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"29" "2011" 64 9 NA NA NA 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"30" "2011" 65 14 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"31" "2011" 66 4 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"32" "2011" 67 9 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"33" "2011" 68 7 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"34" "2011" 69 6 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"35" "2011" 70 8 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"36" "2011" 71 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"37" "2011" 72 9 NA NA NA 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"38" "2011" 73 6 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"39" "2011" 74 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"40" "2011" 75 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"41" "2011" 76 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"42" "2011" 77 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"43" "2011" 78 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"44" "2011" 79 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"45" "2011" 80 5 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"46" "2011" 82 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"47" "2011" 83 3 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"48" "2011" 84 2 NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"49" "2011" 85 3 NA NA NA 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"50" "2011" 86 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"51" "2011" 88 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"52" "2011" 89 1 NA NA NA 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"53" "2011" 90 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"54" "2011" 91 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"55" "2012" 23 NA NA NA NA NA NA NA NA NA 1 NA NA NA NA NA NA NA NA NA
"56" "2012" 24 NA NA NA NA NA NA NA NA NA NA NA NA 4 NA NA NA NA NA NA
"57" "2012" 25 NA NA 2 NA NA NA NA NA NA NA NA NA 1 NA NA NA NA NA NA
"58" "2012" 26 NA NA NA NA NA NA NA NA NA NA NA NA NA NA 1 NA NA NA NA
"59" "2012" 27 NA NA NA NA NA NA NA NA NA 1 NA NA NA NA NA NA NA NA NA
"60" "2012" 28 NA NA NA NA 3 NA NA NA NA NA NA NA NA NA 1 NA NA NA NA
"61" "2012" 29 NA NA NA NA 4 NA NA 2 NA NA NA NA NA NA NA NA NA 2 NA
"62" "2012" 30 NA NA NA NA 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"63" "2012" 31 4 NA NA NA 3 2 NA NA NA 6 NA NA NA NA NA NA NA NA NA
"64" "2012" 32 3 NA NA NA 5 NA NA NA NA NA NA NA 3 NA NA NA NA NA NA
"65" "2012" 33 NA NA NA NA 4 NA NA NA NA NA NA NA 1 NA NA NA NA NA NA
"66" "2012" 34 2 NA 2 NA 2 5 NA NA NA 5 NA NA NA NA NA NA NA 1 NA
"67" "2012" 35 4 NA NA NA 3 NA NA NA NA 5 NA NA 4 NA NA NA NA NA NA
"68" "2012" 36 NA NA 1 NA 4 3 NA NA NA NA NA NA 1 NA NA NA NA 3 NA
"69" "2012" 37 NA NA 8 NA 11 NA NA NA NA 2 NA NA NA NA NA NA NA NA NA
"70" "2012" 38 2 NA 7 NA 13 6 NA 1 NA 3 1 NA NA NA NA NA NA 6 1
"71" "2012" 39 2 NA 4 NA 10 4 NA NA NA 4 NA NA NA NA NA NA NA 2 NA
"72" "2012" 40 8 NA 2 NA 13 13 NA 6 NA 8 NA NA 6 NA 2 NA NA NA NA
"73" "2012" 41 4 NA NA NA 21 13 NA NA 1 3 NA NA 1 NA 2 NA NA 6 NA
"74" "2012" 42 4 NA 2 NA 19 16 NA 5 NA NA NA NA NA NA NA NA NA 2 NA
"75" "2012" 43 3 NA 1 NA 19 3 NA 5 NA 15 3 NA 2 NA 8 NA NA 2 1
"76" "2012" 44 11 NA 8 NA 22 6 NA NA 1 8 1 NA NA NA 1 NA NA 4 1
"77" "2012" 45 8 NA 4 NA 36 8 NA 2 NA 12 NA NA 4 NA NA NA NA 5 NA
"78" "2012" 46 7 NA 1 NA 18 11 NA 2 NA 8 NA NA NA NA 3 NA NA 7 3
"79" "2012" 47 9 NA 5 NA 21 23 NA 5 1 7 NA NA NA NA 3 NA NA 9 4
"80" "2012" 48 6 NA 5 NA 20 23 NA 2 NA 8 NA NA 14 NA 6 NA NA 10 NA
"81" "2012" 49 11 NA 3 NA 41 28 NA 2 NA 4 4 NA 10 NA 5 NA NA 7 NA
"82" "2012" 50 14 NA 4 NA 59 21 NA 7 1 12 1 NA 4 NA 1 NA NA 11 2
"83" "2012" 51 7 NA 7 NA 27 26 NA 9 NA 22 NA NA 3 NA 5 NA NA 14 NA
"84" "2012" 52 10 NA 11 NA 54 23 NA 5 NA 14 NA NA NA NA 2 NA NA 11 NA
"85" "2012" 53 4 NA 5 NA 31 24 NA 1 1 9 2 NA 5 NA 11 NA NA 15 NA
"86" "2012" 54 15 1 1 NA 25 32 NA 3 1 9 2 NA 8 NA 3 NA NA 8 1
"87" "2012" 55 20 NA 7 NA 40 11 NA 5 NA 2 NA NA NA NA NA NA NA 19 NA
"88" "2012" 56 9 NA 9 NA 49 27 NA NA NA 5 NA NA NA NA 7 NA NA 8 NA
"89" "2012" 57 15 NA 9 NA 44 23 NA 2 1 5 2 NA NA NA 1 NA NA 16 3
"90" "2012" 58 10 NA 6 NA 34 20 NA NA NA 8 1 NA 4 NA 8 NA NA 19 1
"91" "2012" 59 13 1 5 NA 35 35 NA 7 NA 10 NA NA 4 NA 3 NA NA 10 6
"92" "2012" 60 11 NA 6 NA 69 23 NA 7 NA 15 3 NA 1 1 3 NA NA 9 NA
"93" "2012" 61 12 NA 7 NA 60 23 NA 10 NA 14 NA NA 1 1 4 NA NA 14 1
"94" "2012" 62 8 NA 10 NA 56 29 NA 4 1 11 5 NA 3 NA 9 NA NA 5 NA
"95" "2012" 63 14 NA 4 NA 52 32 NA 2 NA 13 NA NA 5 NA 4 NA NA 14 NA
"96" "2012" 64 13 NA 5 NA 91 65 NA 5 NA 6 2 NA 7 NA 6 NA NA 17 4
"97" "2012" 65 15 NA 6 NA 51 34 NA 7 1 8 3 NA 4 NA 5 NA NA 16 NA
"98" "2012" 66 13 NA 4 NA 81 50 NA 12 NA 3 5 NA NA NA 17 NA NA 19 2
"99" "2012" 67 18 NA 7 NA 55 55 NA 4 NA 11 NA NA 3 NA 15 NA NA 13 2
"100" "2012" 68 9 NA 1 NA 58 46 NA 4 NA 11 3 NA 2 NA 6 NA NA 19 NA
"101" "2012" 69 5 1 5 NA 47 38 NA 6 2 2 6 NA 2 NA 2 NA NA 11 1
"102" "2012" 70 5 NA NA NA 31 23 NA NA 1 5 NA NA NA NA 1 NA NA 13 NA
"103" "2012" 71 2 NA 2 NA 34 19 NA 4 NA 13 NA NA 10 NA NA NA NA 9 NA
"104" "2012" 72 13 NA 2 NA 40 20 NA 6 NA 4 NA NA 11 NA 6 NA NA 5 NA
"105" "2012" 73 1 NA 3 NA 31 18 NA 4 1 2 1 NA 4 NA 5 NA NA 6 1
"106" "2012" 74 9 NA NA NA 28 10 NA 2 NA 3 7 NA NA NA 6 NA NA 5 NA
"107" "2012" 75 8 NA NA NA 25 26 NA 2 NA 6 NA NA 1 NA 1 NA NA 7 NA
"108" "2012" 76 1 NA NA NA 24 19 NA 3 1 3 NA NA 8 NA NA NA NA 8 NA
"109" "2012" 77 5 NA 1 NA 37 11 NA 2 NA 1 NA NA NA NA 6 NA NA 5 1
"110" "2012" 78 5 NA NA NA 41 8 NA 5 NA 1 NA NA 11 NA NA NA NA 6 NA
"111" "2012" 79 6 NA NA NA 34 9 NA 1 NA NA 3 NA NA NA 2 NA NA 7 NA
"112" "2012" 80 6 NA NA NA 10 15 NA 4 NA NA NA NA 6 NA 9 NA NA 5 NA
"113" "2012" 81 NA NA NA NA 30 14 NA 1 NA NA NA NA 3 NA 2 NA NA 9 NA
"114" "2012" 82 8 NA NA NA 29 12 NA 3 NA 8 4 NA NA NA NA NA NA 6 NA
"115" "2012" 83 2 NA NA NA 12 11 NA 5 1 NA NA NA NA NA NA NA NA NA 1
"116" "2012" 84 2 NA NA NA 11 11 NA NA NA 4 NA NA 4 NA NA NA NA 8 NA
"117" "2012" 85 2 NA NA NA 15 5 NA NA NA NA NA NA NA NA NA NA NA 1 NA
"118" "2012" 86 2 NA NA NA 28 10 NA NA NA NA 3 NA 5 NA 1 NA NA 3 NA
"119" "2012" 87 6 NA NA NA 9 7 NA 2 NA NA NA NA 1 NA NA NA NA NA NA
"120" "2012" 88 2 NA NA NA 10 12 NA NA NA NA NA NA 4 NA NA NA NA 5 NA
"121" "2012" 89 2 NA NA NA 15 4 NA 2 NA NA NA NA 3 NA 1 NA NA 1 NA
"122" "2012" 90 2 NA NA NA 7 6 NA NA NA NA NA NA NA NA NA NA NA 1 NA
"123" "2012" 91 2 NA NA NA 3 3 NA NA 1 NA NA NA 4 NA 2 NA NA NA NA
"124" "2012" 92 NA NA NA NA 7 4 NA 1 NA 3 NA NA NA NA NA NA NA 2 NA
"125" "2012" 93 NA NA NA NA 15 4 NA 1 NA 3 NA NA NA NA NA NA NA 1 NA
"126" "2012" 94 2 NA NA NA 7 NA NA 2 NA NA NA NA NA NA NA NA NA NA NA
"127" "2012" 95 NA NA NA NA 5 NA NA 2 NA NA NA NA NA NA NA NA NA 1 NA
"128" "2012" 96 NA NA NA NA 3 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"129" "2012" 99 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
"130" "2012" 100 NA NA NA NA 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA

Global.R

# Load data image
A1 <- read.table("A1.txt")
A2 <- read.table("A2.txt")

server.R

## Load libraries;
library(shiny)
library(rCharts)

# Server application;
shinyServer(function(input, output, session) {
  chartColumn <- Highcharts$new()
  chartColumn$title(text = "")
  chartColumn$chart(type = "column", zoomType = "xy")
  chartColumn$yAxis(title = list(text = "Number"), min = 0)
  chartColumn$exporting(sourceWidth = 1000, sourceHeight = 400)
  chartColumn$legend(align = "right", verticalAlign = "middle", layout = "vertical")
  
  #### A1;
  output$A1_figure <- renderChart({
    chart <- chartColumn$copy()
    chart$addParams(dom = "A1_figure")
    Dat <- A1
    if (!is.null(input$A1_hospital)) {Dat <- Dat[, c(1,2, which(names(Dat) %in% input$A1_hospital))]}
    for (i in names(Dat)[-c(1, 2)]) {chart$series(name = i, data = Dat[, i])}
    chart$xAxis(tickLength = 0, categories = as.character(Dat$MeldingsNr))
    iA1_summary$data <- Dat
    return(chart)
  })
  ## Summary;
  iA1_summary <- reactiveValues()
  output$A1_summary <- renderDataTable({
    iA1_summary$data
  })
  ## Output;
  output$uiA1_output <- renderUI({
    tabsetPanel(tabPanel("Figure", chartOutput("A1_figure", lib = "highcharts")), 
                tabPanel("Summary", dataTableOutput("A1_summary")))
  }) 
  
  #### A2;
  output$A2_figure <- renderChart({
    chart <- chartColumn$copy()
    chart$addParams(dom = "A2_figure")
    Dat <- A2
    if (!is.null(input$A2_year)) {Dat <- Dat[which(Dat$Year == input$A2_year), ]}
    for (i in names(Dat)[-c(1, 2)]) {chart$series(name = i, data = Dat[, i])}
    chart$xAxis(tickLength = 0, categories = as.character(Dat$MeldingsNr))
    iA2_summary$data <- Dat
    return(chart)
  })
  ## Summary;
  iA2_summary <- reactiveValues()
  output$A2_summary <- renderDataTable({
    iA2_summary$data
  })
  ## Output;
  output$uiA2_output <- renderUI({
    tabsetPanel(tabPanel("Figure",  chartOutput("A2_figure", lib = "highcharts")), 
                tabPanel("Summary", dataTableOutput("A2_summary")))
  }) 
  
}) 

ui.R

shinyUI(bootstrapPage(
  tagList(
    tags$head(
      tags$style("body{margin:1cm;font-size: 12px;}
                 div.input{float: left; padding-right: 50px;}
                 div.output div{overflow-y: hidden;}
                 div.highcharts{height: 750px;}")
    )
  ),
  div(class = "input",
      selectInput(inputId = "Analysis", label = "Analysis:", choices = c("A1", "A2")),
      conditionalPanel(condition = "input.Analysis === 'A1'",
                       selectInput(inputId = "A1_hospital", label = "Hospital:", 
                                   choices = (names(A1)[-c(1, 2)]), multiple = TRUE)
      ),
      conditionalPanel(condition = "input.Analysis === 'A2'",
                       selectInput(inputId = "A2_year", label = "Registry year:", 
                                   choices = sort(unique(A2$Year)), multiple = TRUE)
      )  
    ),
  div(class = "output",
    conditionalPanel(condition = "input.Analysis == 'A1'", uiOutput("uiA1_output")),
    conditionalPanel(condition = "input.Analysis == 'A2'", uiOutput("uiA2_output"))      
  )
      
))