# Tabella ordinata rispetto alla # colonna x. Inizialmente e' # impostato l'ordine decrescente. Db.ord = function (x,crescente=F) Dt.ord(TABELLA,x,crescente=crescente) Db.salva = function (messaggio= 'Vuoi salvare la tabella? (s/n): ') {if (Db..esiste()) {if (!MODIFICA) cat('Tabella non modificata.\n\n') else {Db(); cat('\n'); repeat {s=readline(messaggio) if (s=='s') {s=T; break} if (s=='n') {s=F; break}} if (s) {comando=paste('save(TABELLA, file="',FILEDATI,'")',sep='') T.eval(comando) comando=paste('write.table(TABELLA, file="',FILEWRITE,'")',sep='') T.eval(comando) assign('MODIFICA',F,pos=1) cat('Tabella salvata.\n')} else cat('Tabella non salvata.\n')}} else cat('Tabella non esiste.\n')} # Sostituisce la tabella con un'altra. Db.sostcon = function (tab) {assign('MODIFICA',T,pos=1) assign('TABELLA',tab,pos=1); Db()} # Valore di TABELLA, per assegnazioni. # tab=Db.tab(). Db.tab = function () {Db(); TABELLA}