setwd("C:/Users/Gabrielli/Downloads/")

createTex <- function(Input,Output){
  manual <-
    read.csv(Input,
             stringsAsFactors = FALSE,
             na.strings = c("", "NA"))

  file.remove(Output)

  for (section in unique(manual$section)) {
    write(paste0("\\chapter{", section, "}")
          , Output, append = TRUE)
    for (name in manual$name) {
      if (manual$section[manual$name == name] == section
          && is.na(manual$subsection[manual$name == name])) {
        write(
          paste0(
            "\\section{",
            name,
            "} \\label{",ifelse(!is.na(manual$label[manual$name == name]), manual$label[manual$name ==
                                                                                          name], ""),"}

            ",
            ifelse(!is.na(manual$definition[manual$name == name]), manual$definition[manual$name ==
                                                                                       name], ""),
            "
            ",
            ifelse(!is.na(manual$motivation[manual$name == name]), manual$motivation[manual$name ==
                                                                                       name], ""),
            "
            ",
            ifelse(
              !is.na(manual$functionality[manual$name == name]),
              manual$functionality[manual$name == name],
              ""
            ),
            "
            ",
            ifelse(!is.na(manual$mechanism[manual$name == name]), manual$mechanism[manual$name ==
                                                                                     name], ""),
            "
            ",
            ifelse(!is.na(manual$comments[manual$name == name]), manual$comments[manual$name ==
                                                                                   name], ""),
            "
            ",
            ifelse(!is.na(manual$table[manual$name == name]), manual$table[manual$name ==
                                                                             name], ""),
            "
            ",
            ifelse(!is.na(manual$history[manual$name == name]), manual$history[manual$name ==
                                                                                 name], ""),
            "
            ",
            ifelse(
              as.logical(manual$figure[manual$name == name]),
              paste0(
                "\\begin{figure}[!h] \\caption{",
                manual$caption[manual$name == name],
                "} \\label{fig_",
                manual$label[manual$name == name],
                "} \\centering
                \\includegraphics[width=\\textwidth]{figs/",
                manual$label[manual$name == name],
                "}
                \\end{figure}"
              ),
              ""
              )
          ),
          Output,
          append = TRUE
          )
      }
      for (subsection in na.omit(unique(manual$subsection))) {
        if (!is.na(manual$subsection[manual$name == name]) &&
            manual$section[manual$name == name] == section) {
          if (manual$subsection[manual$name == name] == subsection) {
            write(
              paste0(
                "\\subsection{",
                name,
                "} \\label{",ifelse(!is.na(manual$label[manual$name == name]), manual$label[manual$name ==
                                                                                              name], ""),"}

                ",
                ifelse(!is.na(manual$definition[manual$name == name]), manual$definition[manual$name ==
                                                                                           name], ""),
                "
                ",
                ifelse(!is.na(manual$motivation[manual$name == name]), manual$motivation[manual$name ==
                                                                                           name], ""),
                "
                ",
                ifelse(
                  !is.na(manual$functionality[manual$name == name]),
                  manual$functionality[manual$name == name],
                  ""
                ),
                "
                ",
                ifelse(!is.na(manual$comments[manual$name == name]), manual$comments[manual$name ==
                                                                                       name], ""),
                "
                ",
                ifelse(!is.na(manual$table[manual$name == name]), manual$table[manual$name ==
                                                                                 name], ""),
                "
                ",
                ifelse(!is.na(manual$mechanism[manual$name == name]), manual$mechanism[manual$name ==
                                                                                         name], ""),
                "
                ",
                ifelse(!is.na(manual$history[manual$name == name]), manual$history[manual$name ==
                                                                                     name], ""),
                "
                ",
                ifelse(
                  as.logical(manual$figure[manual$name == name]),
                  paste0(
                    "\\begin{figure}[!h] \\caption{",
                    manual$caption[manual$name == name],
                    "} \\label{fig_",
                    manual$label[manual$name == name],
                    "} \\centering
                    \\includegraphics[width=\\textwidth]{figs/",
                    manual$label[manual$name == name],
                    "}
                    \\end{figure}"
                  ),
                  ""
                  )
              ),
              Output,
              append = TRUE
              )
          }
        }
        }
      }
    }
}
createTex('pt.csv','foobar.tex')
createTex('en.csv','foobarEnglish.tex')