This is the script
---
title: "Informe General"
output: html_document
---
```{r setup, echo=FALSE, cache=TRUE, results='hide', warning=FALSE, comment=FALSE, warning=FALSE, message=FALSE, comments = ""}
library(RCurl);
library(Rlabkey);
labkey.setCurlOptions(ssl_verifypeer=FALSE, ssl_verifyhost=FALSE);
library(knitr);
knitr::opts_chunk$set(echo=FALSE, cache=FALSE, comment=FALSE, comments ="", warning=FALSE, eval = TRUE, encoding = "native.enc")
#knitr::opts_chunk$get();
knitr::pandoc('script.Rmd', format='html')
#knitr::pandoc('script.Rmd', format='latex', config="Script.pdf")
```
```{r results = 'asis', echo=FALSE}
library(xtable);
library(stringr);
labkey.data <- read.table("${input_data}", header=TRUE, sep="\t", fileEncoding = "UTF-8", fill = TRUE)
#names(labkey.data);
#kable(head(labkey.data),format = "markdown", caption = "Informe",digits = getOption("digits"), row.names = NA , col.names = NA, align="l", format.args = list(), booktabs=TRUE, longtable=TRUE, escape = TRUE, encoding = 'UTF-8') |