library(httr)
url <- GET("http://localhost:5000/observations.json", authenticate("utente", "password"))
dati <-content(url, "parsed")
dati1 <- lapply(dati, lapply, function(x)ifelse(is.null(x), NA, x))
dati_scar <- t(sapply(dati1,unlist))