index.Rmd

# arframer

```{r, eval=TRUE, include=FALSE}
library(htmltools)
```

```{r, echo=FALSE}
div(
  class = "row",
  div(
    class = "col-md-3",
    img(src = "logo.png")
  ),
  div(
    class = "col-md-9",
    p(
      "Augmented Reality in R."
    )
  )
)
```

## Installation

```{r, eval = FALSE}
# install.packages("devtools")
devtools::install_github("JohnCoene/arframer")
```

Or you can install all [packages](articles/packages.html) and [components](articles/components.html) at once with `vrr`, **V**irtual **R**eality in **R** (with another **R**):

```{r, eval = FALSE}
# install.packages("devtools")
devtools::install_github("JohnCoene/vrrr")
```

## Basic Example

Point your camera to a [hiro marker](https://github.com/jeromeetienne/AR.js/blob/master/data/images/HIRO.jpg).

```{r eval = FALSE}
library(aframer)
library(arframer)

browse_aframe(
  ar_scene(
    a_box(
      position = "0 0.5 0",
      material = "opacity: 0.5;"
    ),
    ar_marker_camera(
      preset = "hiro"
    )
  )
)
```

Hit the button below to view the output of the above, you'll have to point your camera to [hiro marker](https://github.com/jeromeetienne/AR.js/blob/master/data/images/HIRO.jpg).

```{r, echo=FALSE}
tags$a(
  tags$i(class = "fa fa-lg fa-eye"),
  " Demo",
  href = "example.html",
  target = "_blank",
  class = "btn btn-lg btn-primary btn-blue"
)
```