R

[vc_row][vc_column width=”1/1″][vc_column_text]Alle Datenreihen können direkt in R importiert werden. Gerne unterstützen wir Sie auch in der Umsetzung in R. [/vc_column_text][vc_button border_width=”0″]Download R script[/vc_button][vc_column_text]

#######################################################
#novaDB API call, 26.02.2019
#######################################################

#install.packages(c("httr", "ggplot2"))

library(httr)
library(ggplot2)

options(stringsAsFactors = FALSE)


# Set username and password 
username = 'USER'
password = 'PASSWORD'


# Set API urls 
url = "https://nova-db.com/api/v1/series/"
url_tokens = 'https://nova-db.com/api/v1/tokens'


# Set your variable
# Get an overview of available series through https://nova-db.herokuapp.com/api/v1/series/

var="empty_apartments"

#######################################################
# Request the user token
token <- httr::POST(url_tokens, authenticate(username, password))

if (token$status_code==200){
print("Token was successfully obtained")
}

token=content(token)
auth=paste('Bearer ',token,sep="")

# Create URL request
var=gsub(" ","%20",var)
url_request=paste(url,var,sep="")


# Set call parameters; options: region, year; comment out if all
params = list(
`region` = 'Bern'#,
#`year` = '2015'
)

#######################################################
# Call novaDB through API, reshape JSON list output to dataframe
a=httr::GET(url_request, query=params, httr::add_headers(Authorization = auth))
if (a$status_code==200){
"Request was successful."
} else{
"Something went wrong, please check your input again."
}

q=content(a,as="parsed") 
df=do.call(rbind.data.frame, q)
df$value=as.numeric(as.character(df$value))
df$regionnr=as.numeric(as.character(df$regionnr))


#######################################################
# Simple bar plot
ggplot(df, aes(x=period,y=value) ) + 
geom_bar(stat="identity")+ggtitle(paste(df$variable[1]))

[/vc_column_text][/vc_column][/vc_row]