In guillemylla/mirQCApp: A tool for quality control and filtering of microRNAs

Original Name:

writeLines( as.character(ToReport[i,"Name"]))

User provided Name:

writeLines( as.character(ToReport[i,"UserName"]))

Mature/5p sequence:

writeLines(as.character(toprintaligns[toprintaligns$ID ==  ToReport[i,"Name"],]$`5p arm`))
writeLines(as.character(toprintaligns[toprintaligns$ID ==  ToReport[i,"Name"],]$`mature`))

Star/3p sequence:

writeLines(as.character(toprintaligns[toprintaligns$ID ==  ToReport[i,"Name"],]$`3p arm`))
writeLines(as.character(toprintaligns[toprintaligns$ID ==  ToReport[i,"Name"],]$`star`))

Genomic coordinates:

writeLines(as.character(toreturnall[toprintaligns$ID ==  ToReport[i,"Name"],]$Loci))

Which arm is mature arm:

writeLines(as.character(toreturnall[toprintaligns$ID ==  ToReport[i,"Name"],]$whoismature))

Final score:

writeLines(as.character(toreturnall[toprintaligns$ID ==  ToReport[i,"Name"],]$Score))

Structure plot:

library("jpeg")
im <- readJPEG(paste0('./www/images/', ToReport[i,"Name"], "_fold.jpg"))
plot (0:1, 0:1, type = "n", ann = FALSE, axes = FALSE)
rasterImage (im, 0, 0, 1, 1)

Expression plot:

library("png")
png <- readPNG(paste0('./www/plots/', ToReport[i,"Name"], ".png"))
plot.new()
rasterImage(png, 0, 0, 1, 1)

guillemylla/mirQCApp documentation built on July 15, 2020, 5:04 a.m.