install.packages("rjson")
library(rjson)
inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene.json")
inimene
inimene$eesnimi
inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene2.json")
inimene
inimene$aadress
inimene$aadress$vald
names(inimene$aadress)
inimesed=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimesed.json")
inimesed
length(inimesed)
inimesed[[1]]$eesnimi
as.data.frame(inimesed)
for(i in 1:length(inimesed)){
  print(inimesed[[i]]$eesnimi)
}

sapply(1:length(inimesed), 
       function(i){c(eesnimi=inimesed[[i]]$eesnimi, 
                     pikkus=inimesed[[i]]$pikkus)})

tabel=t(
  sapply(1:length(inimesed), 
         function(i){c(eesnimi=inimesed[[i]]$eesnimi, 
                       pikkus=inimesed[[i]]$pikkus)})
)

tabel[2, "eesnimi"]
barplot(as.numeric(tabel[, "pikkus"]), 
        names.arg=tabel[, "eesnimi"])
as.numeric(tabel[, "pikkus"])
class(tabel)

isikud=list(eesnimed=c("Juku", "Kati", "Mati"), asukoht="Tallinn")
isikud
toJSON(isikud)
cat(file="d:/jaagup/isikud.json", toJSON(isikud))
#{"eesnimed":["Juku","Kati","Mati"],"asukoht":"Tallinn"}

inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene.json")
inimene$synniaasta=1986
inimene$pikkus=NULL
toJSON(inimene)

install.packages("RMySQL")

#CREATE TABLE kaalikad(
#  id INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
#  diameeter FLOAT,
#  mass FLOAT
#);

#INSERT INTO kaalikad VALUES (NULL, 15, 150);
#INSERT INTO kaalikad VALUES (NULL, 18, 170);

#ALTER TABLE kaalikad ADD tootja VARCHAR(50) DEFAULT "AS Agro";

#INSERT INTO kaalikad VALUES (NULL, 14, 150, "AS Kaalikla");
#INSERT INTO kaalikad VALUES (NULL, 13, 120, "AS Kaalikla");

library(RMySQL)
yhendus=dbConnect(MySQL(), user='if15', password='ifikad15', 
          dbname='if15_jaagup_1', host='greeny.cs.tlu.ee')

tabel=dbSendQuery(yhendus, "SELECT * FROM kaalikad")
tabel
kaalikad=fetch(tabel, 3) #saab võtta ka vähem ridu korraga
dbClearResult(tabel) #pean vabastama, juhul kui rohkem ei loe
class(kaalikad)
colnames(kaalikad)
rownames(kaalikad)
kaalikad$tootja
kaalikad
kaalikad=fetch(dbSendQuery(yhendus, "SELECT * FROM kaalikad"))
kaalikad$tootja