[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]