Book Image

Web Application Development with R Using Shiny Second Edition - Second Edition

By : Chris Beeley
Book Image

Web Application Development with R Using Shiny Second Edition - Second Edition

By: Chris Beeley

Overview of this book

R is a highly flexible and powerful tool for analyzing and visualizing data. Most of the applications built using various libraries with R are desktop-based. But what if you want to go on the web? Here comes Shiny to your rescue! Shiny allows you to create interactive web applications using the excellent analytical and graphical capabilities of R. This book will guide you through basic data management and analysis with R through your first Shiny application, and then show you how to integrate Shiny applications with your own web pages. Finally, you will learn how to finely control the inputs and outputs of your application, along with using other packages to build state-of-the-art applications, including dashboards.
Table of Contents (14 chapters)
Web Application Development with R Using Shiny Second Edition
Credits
About the Author
About the Reviewer
www.PacktPub.com
Preface
Index

threejs


The threejs package, as discussed at the beginning of the chapter, can be used to produce 3D scatterplots or plots on globe mappings (including Earth and celestial bodies). It can be installed using install.packages("threejs"). In order to produce the globe output that is shown in this section, it is necessary to also install maps using install.packages("maps"). The finished application tab looks like this:

The code is as follows:

output$globe <- renderGlobe({
  if(input$outputRequired == "meanSession"){
    globejs(lat = passData()$latitude,
      long = passData()$longitude,
      value = mean(passData()$sessionDuration, na.rm = TRUE),
      bg = "white", color = "green", atmosphere = TRUE)
  } else {

This piece of code is executed when the user wishes to view the mean session values. As shown in the preceding code, the average of the sessionDuration variable is found.

    globejs(lat = passData()$latitude,
      long = passData()$longitude,
      value = log(passData()[, input...