mobileCharts

The goal of mobileCharts is to bring mobile friendly charts to shinyMobile via f2.

Installation

install.packages("remotes")
remotes::install_github("rinterface/mobileCharts")

Example

See the website for more examples. Visit the demo (from your mobile) to have a better idea of the look and feel.

library(mobileCharts)

mobile(iris, aes(Sepal.Length, Sepal.Width, color = Species)) %>% 
  mobile_point()

shinyMobile

refresh if you resize the screen

library(shiny)
library(shinyMobile)
library(mobileCharts)

ui <- f7Page(
  title = "mobileCharts",
  f7SingleLayout(
    navbar = f7Navbar(
      title = "mobileCharts",
      hairline = TRUE,
      shadow = TRUE
    ),
    f7Shadow(
      intensity = 16,
      f7Card(
        title = "Chart",
        mobileOutput("mc", width = 400)
      )
    )
  )
)

server <- function(input, output){
  output$mc <- render_mobile({
    mobile(iris, aes(Sepal.Length, Sepal.Width, color = Species)) %>% 
      mobile_point()
  })
}

shinyApp(ui, server)