README.Rmd

---
output: 
  md_document:
    variant: markdown_github
---
# rightscale

[![Project Status: WIP – Initial development is in progress, but there has not yet been a stable, usable release suitable for the public.](http://www.repostatus.org/badges/latest/wip.svg)](http://www.repostatus.org/#wip)

Use rightscale to interface with [rightscale.com](https://rightscale.com) for cloud pricing, management, and optimisation

## Installation
Install from github with devtools

```{r eval=FALSE}
if(!require(devtools)) install.packages(devtools)
devtools::install_github("locakedata/rightscale")
```

## Examples

Here some basic examples

```{r}
if(!require(rightscale)) devtools::load_all()
library(rightscale)

authenticate("fa4d643a3b2b95ac59ec0ad6381e86267abbe278")
clouds<-list_clouds()
tibble::glimpse(clouds)

```

```{r}
acloud<-get_cloud(1)
tibble::glimpse(acloud)

```

```{r}
anothercloud<-get_cloud(name="EC2 us-east-1")
tibble::glimpse(anothercloud)

```

```{r}
prices<-list_prices()
tibble::glimpse(prices)

```

```{r}
aprice<-get_price(547725001)
tibble::glimpse(aprice)
```

## Tests
```{r}
devtools::test()
```