ConfigShowTable <- function(configuration, dataset_type, store_format, line_numbers = NULL) {
  table_name <- paste0(gsub("-", "_", store_format), "_", dataset_type)
  header <- paste("| Matches in", gsub("-", " ", store_format), dataset_type, "|\n")
  cat(paste0(paste(rep("-", nchar(header) - 1), collapse = ''), "\n"))
  cat(header)
  cat(paste0(paste(rep("-", nchar(header) - 1), collapse = ''), "\n"))
  if (dataset_type == 'experiments') {
    cat("#exp_name, var_name[, exp_main_path[, exp_file_path[, grid[, nc_var_name[, suffix[, var_min[, var_max]]]]]]]\n")
  } else {
    cat("#obs_name, var_name[, obs_main_path[, obs_file_path[, nc_var_name[, suffix[, var_min[, var_max]]]]]]\n")
  }
  if (is.null(line_numbers)) {
    line_numbers <- 1:length(unlist(configuration[[table_name]], recursive = FALSE))
  }
  line_number <- 1
  invisible(lapply(configuration[[table_name]], function(x) lapply(x, 
    function(y) {
      cat(paste(line_numbers[line_number], ": ", paste(unlist(y), collapse = ', '), "\n", sep = ''))
      line_number <<- line_number + 1
    }
  )))
}
