p <- p + ggplot2::facet_grid(. ~ variable, scales = "free_x")

  p <- p + ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 45, vjust = 1, hjust = 1))

  p <- p + ggplot2::labs(x = "", y = "")

  appendTo("debug", "Terminating printDotplots.")

  p <- p + ggplot2::scale_y_continuous(limits = c(0, 1), expand = c(0, 0, 0.05, 0))

  p <- p + ggplot2::labs(x = "", y = "Survival")

  the.width <- max(2, sum(grepl("Disap.", colnames(section.overview))) * nrow(section.overview))

  appendTo("debug", "Terminating printSurvivalGraphic.")

    if (counter %% 2 == 0) {

      individual.plots <<- paste0(individual.plots, "![](", tempdir(), "/actel_report_auxiliary_files/", tag, ".", extension, "){ width=", the.width * 10, "% }\n")

      p <- p + ggplot2::scale_fill_manual(values = as.vector(cbPalette)[1:length(unique(plotdata$Group))], drop = FALSE)

  p <- p + ggplot2::labs(x = "", y = "n")

  p <- p + ggplot2::scale_y_continuous(expand = c(0, 0, 0.05, 0))

  the.width <- max(2, (ncol(input) - 1) * nrow(input) * 0.7)

  p <- p + ggplot2::coord_flip()

  p <- p + ggplot2::guides(fill = ggplot2::guide_legend(reverse = TRUE))

  the.height <- max(2, ((length(levels(status.df$Very.last.array)) - 1) * 0.5))

      n.plots <- n.plots + 1

      if (n.plots %% 2 == 0) {