R/new_DB.R

In jfpalomeque/pandora: Data processing of marks in bones, from images of sections

new_DB <-
function(){#This function run all other functions in order to create a new Data Base
    library(grDevices)
    library(jpeg)
    library(CircStats)
    enter.dir()
    marks<<-data.frame()
    dir.process()
    names<-c("site", "n_site", "n", "material", "section", "taxon_bone", "type_bone", "Anatom_part", "LM1x", "LM1y", "LM2x", "LM2y", "LM3x", "LM3y", "LM4x", "LM4y", "LM5x", "LM5y", "LM6x", "LM6y", "LM7x", "LM7y", "WIS", "WIM", "WIB", "LDC", "RDC", "SI", "d", "OA")
    marks<-rbind(marks,newrow)
    names(marks)<-names
    marks<<-marks
    save(marks, file="data_marks")
    for(w in c(1:ncol(marks))) {
      marks[,w] <- as.character(marks[,w])
    }

    while(i<=l){

      dir.process()
      marks<-rbind(marks,newrow)
      marks<<-marks
      save(marks, file="data_marks")
      save.image(".RData")


    }
    data_processing_menu()
    }