import csv

# Chiediamo all'utente che linea vuole salvare
id = input("Inserire l'id dell'analisi desiderata: ")

# Leggiamo il file csv
reader = csv.reader(open('analiti.csv', 'r'), delimiter=',')

numLinea = 0
# Attraversiamo il file linea per linea
for line in reader:
	# Salviamo l'header.
	if numLinea == 0:
		header = line
	else:
		if int(line[0]) == id: # Abbiamo trovato l'id desiderato
			break 
	numLinea += 1

if numLinea != id:
	print "ID non trovato!"
	exit()
	
writer = csv.writer(open('output.csv', 'w'), delimiter=",")
ncol = 0
for col in line:
	if len(col) > 0:
		writer.writerow([header[ncol], col])
	ncol += 1

# Leggiamo il csv
risultati <- read.table("analiti.csv", header=TRUE, sep=",")
numero.riga <- 5 # Il numero della riga che vogliamo leggere

# Prendiamo la riga desiderata
output <- risultati[numero.riga,]
# Eliminiamo le colonne vuote
output <- output[!is.na(output)]
# Scriviamo l'output
write.table(output, "output.csv", sep="\n")

python referti.py

#/usr/bin/env python

R

source("referti.R")

setwd("path/della/directory/")

R CMD BATCH referti.R

# Leggiamo il csv
risultati <- read.table("analiti.csv", header=TRUE, sep=",")

cat ("Inserire l'ID dell'analisi desiderata: ")
numero.riga <- scan(n=1, quiet=TRUE)

# Prendiamo la riga desiderata
line <- risultati[numero.riga,]
# Eliminiamo le colonne vuote
output <- line[!is.na(line)]
# Aggiungiamo i nomi delle colonne
output <- cbind(names(risultati)[!is.na(line)], output)
# Scriviamo l'output
write.table(output, "output.csv", sep=",", quote=FALSE, col.names=FALSE, row.names=FALSE)

# Leggiamo il csv
risultati <- read.table("analiti.csv", header=TRUE, sep=",")

for (numero.riga in 1:length(risultati)) 
	{
	# Prendiamo la riga desiderata
	line <- risultati[numero.riga,]
	# Eliminiamo le colonne vuote
	output <- line[!is.na(line)]
	# Aggiungiamo i nomi delle colonne
	output <- cbind(names(risultati)[!is.na(line)], output)
	# Scriviamo l'output
	write.table(output, paste("referto.", numero.riga, ".csv", sep=""), sep=",", quote=FALSE, col.names=FALSE, row.names=FALSE)
	}