In JohnCoene/aframer: Make Web Virtual Reality

aframer

library(htmltools)

div(
  class = "jumbotron",
  div(
    class = "container",
    div(
      class = "row",
      div(
        class = "col-md-3",
        img(src = "logo.png")
      ),
      div(
        class = "col-md-9",
        p(
          "Make Web Virtual Reality in R."
        ),
        p(
          a(
            href = "https://arframer.john-coene.com/",
            target = "_blank",
            class = "btn btn-primary btn-blue",
            tags$i(
              class = "fa fa-camera"
            ),
            "AR"
          ),
          a(
            href = "articles/packages.html",
            target = "_blank",
            class = "btn btn-default",
            tags$i(
              class = "fa fa-archive"
            ),
            "Packages",
            span(class = "badge", 4)
          ),
          a(
            href = "articles/components.html",
            target = "_blank",
            class = "btn btn-default",
            tags$i(
              class = "fa fa-cubes"
            ),
            "Components",
            span(class = "badge", 11)
          )
        )
      )
    )
  )
)

Installation

# install.packages("devtools")
devtools::install_github("JohnCoene/aframer")

You can install aframer, all its packages and components with vrrr, Virtual Ritual in R (with another R) which also hosts all the documentation for aframer and its components.

# install.packages("devtools")
devtools::install_github("JohnCoene/vrrr")

Examples

div(
  class = "panel panel-info",
  div(
    class = "panel-body",
    div(
      class = "row",
      div(
        class = "col-md-10",
        tags$i(class = "fa fa-warning text-warning"),
        " Documentation for all packages and components can be found on the",
        tags$a(
          "vrrr",
          target = "_blank",
          href = "https://vrrr.john-coene.com"
        ),
        "website."
      ),
      div(
        class = "col-md-2",
        tags$a(
          class = "btn btn-primary",
          tags$i(
            class = "fa fa-graduation-cap"
          ),
          " Guide"
        )
      )
    )
  )
)

• You can browse by encapsulating a_scene in browse_aframe.
• Embed the visualisation in R markdown with embed_aframe.
• Serve visualisations with serve_aframe.

library(aframer)

embed_aframe(
  a_scene(
    a_dependency(),
    a_box(
      position = "-1 0.5 -3", rotation = "0 45 0", color = "#4CC3D9"
    ),
    a_sphere(
      position = "0 1.25 -5", radius = "1.25", color = "#EF2D5E"
    ),
    a_cylinder(
      position = "1 0.75 -3", radius = "0.5", height = "1.5", color = "#FFC65D"
    ),
    a_plane(
      position = "0 0 -4", rotation = "-90 0 0", width = "4", height = "4", color = "#7BC8A4"
    ),
    a_sky(
      color="#ECECEC"
    )
  )
)

br()

Click the button below to view the full screen output of the code above.

tags$a(
  tags$i(class = "fa fa-lg fa-eye"),
  " Demo",
  href = "example.html",
  target = "_blank",
  class = "btn btn-lg btn-primary"
)

JohnCoene/aframer documentation built on March 10, 2020, 1:32 p.m.