xdbpkg <- "TxDb.Hsapiens.UCSC.hg19.knownGene"
require(txdbpkg, character.only=TRUE) || {
    source("http://bioconductor.org/biocLite.R")
    biocLite(txdbpkg, suppressUpdates=TRUE, ask=FALSE)
    library(txdbpkg, character.only=TRUE)
}
```

```
## [1] TRUE
```

```r
library(annotate)
library(org.Hs.eg.db)
txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene

# create a table with one transcript per line
#load("RSEM_test/RSEM/rsem_txs_table.Rda")
tx_to_gid <- rsem_txs_table[,list(transcript_id=strsplit(as.character(transcript_ids),",")[[1]]),by="gene_id"]

# map the transcripts to entrez gene ids
tx_to_eid <- data.table(select(txdb, keys = tx_to_gid[,transcript_id], columns="GENEID", keytype="TXNAME"))
setnames(tx_to_eid, c("TXNAME", "GENEID"), c("transcript_id", "entrez_id"))

# Add gene symbol
tx_to_eid[!is.na(entrez_id),gene_symbol:=getSYMBOL(tx_to_eid[!is.na(entrez_id),entrez_id], data='org.Hs.eg')]

# merge all to map information to RSEM gene_ids
tx_table <- merge(tx_to_gid, tx_to_eid, by="transcript_id")
tx_table_reduced <- tx_table[,list(entrez_id=paste(unique(entrez_id),collapse=","), transcript_id=paste(unique(transcript_id),collapse=","), gene_symbol=paste(unique(gene_symbol),collapse=",")),by="gene_id"]

# Write to disc and order by gene_id
write.csv(tx_table_reduced[order(gene_id)], file="RSEM_test/RSEM/rsem_fdata.csv", row.names=FALSE)
```


// German language
(function($) {
elRTE.prototype.i18Messages.de = {
	'Editor' : 'Editor',
	'Source' : 'Quellcode',
	// Panel Name
	'Copy/Pase'      : 'Kopieren/Einfügen',
	'Undo/Redo'      : 'Rückgängig/Wiederherstellen',
	'Text styles'    : 'Textstile',
	'Colors'         : 'Farbe',
	'Alignment'      : 'Alignment',
	'Indent/Outdent' : 'Einrücken / Ausrücken',
	'Text format'    : 'Format',
	'Lists'          : 'Listen',
	'Misc elements'  : 'Sonstige elemente',
	'Links'          : 'Link',
	'Images'         : 'Bild',
	'Media'          : 'Media datei',
	'Tables'         : 'Tabelle',
	'File manager (elFinder)' : 'Datei-Manager (elFinder)',
	// button names
	'Save'          