require(aRT) aRTsilent(FALSE) con=openConn() db=openDb(con,"saudavel", update=TRUE) l=openLayer(db,"LAYER_ARMADILHAS") proj=getProj(l) pontos=getPoints(l) if(any(showDbs(con) == "saudavellight")) deleteDb(con,"saudavellight",force=T) dblight = createDb(con,"saudavellight") #Criação do novo layer lr=createLayer(dblight,"LAYER_ARMADILHAS", proj=proj) addPoints(lr, pontos) # Exportação das tabelas tab=openTable(l,"ARMADILHAS"); tab2=getData(tab) col=openTable(l,"COLETAS"); col2=getData(col) col2<-col2[c(1,2,3,9,13)] #Seleção das colunas de interesse #Importação da tabela estática importTable(lr,"ARMADILHAS", id="COD_ARMADILHA", data=tab2) #Criação da nova tabela dinâmica dina=createTable(lr,"COLETAS",type="dynatt",id="COLETA_ID",link="COD_ARMADILHA", length=50, itime="DATA_COLETA", ftime="DATA_COLETA") createColumn(dina, "NRO_OVOS", type="i") createColumn(dina, "SITIO", type="c", length=200) # Converter os tempos para o formato de tabelas temporais criadas no aRT # coloquei no wiki um TODO para deixar o formato do dado temporal mais flexivel require(chron) x = lapply(1:(dim(col2)[1]), function(i) { v = dates(col2[i,3], forma="y-m-d") d = toDate(y=as.integer(unclass(years(v))@levels),mon=unclass(months(v)),d=unclass(days(v))) if(i%%100 == 0) print(i) d }) col2$COLETA_ID=rownames(col2) col2$DATA_COLETA = unlist(x) #Adição dos dados (linhas) addRows(dina, col2) th = createTheme(lr,"coletas", view="coletas", table="COLETAS")