https://github.com/RinteRface/mobileCharts

Mobile friendly charts with a familiar syntax
https://github.com/RinteRface/mobileCharts

mobile r rstats

Last synced: 3 months ago
JSON representation

Mobile friendly charts with a familiar syntax

• Host: GitHub
• URL: https://github.com/RinteRface/mobileCharts
• Owner: RinteRface
• License: other
• Created: 2019-12-02T10:53:32.000Z (almost 5 years ago)
• Default Branch: master
• Last Pushed: 2020-02-12T12:49:10.000Z (over 4 years ago)
• Last Synced: 2024-05-21T02:11:24.523Z (6 months ago)
• Topics: mobile, r, rstats
• Language: R
• Homepage: https://mobilecharts.rinterface.com
• Size: 302 KB
• Stars: 27
• Watchers: 6
• Forks: 5
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

• jimsghstars - RinteRface/mobileCharts - Mobile friendly charts with a familiar syntax (R)

README

        

[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)

[![Travis build status](https://travis-ci.org/RinteRface/mobileCharts.svg?branch=master)](https://travis-ci.org/RinteRface/mobileCharts)

# mobileCharts

The goal of mobileCharts is to bring mobile friendly charts to [shinyMobile](https://rinterface.github.io/shinyMobile/) via [f2](https://f2.antv.vision/en).

## Installation

``` r

install.packages("remotes")

remotes::install_github("rinterface/mobileCharts")

```

## Example

See the [website](https://mobilecharts.rinterface.com/) for more examples. Visit the [demo](https://shiny.john-coene.com/mobileCharts/) (from your mobile) to have a better idea of the look and feel.

``` r

library(mobileCharts)

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

  mobile_point()

```

### shinyMobile

_refresh if you resize the screen_

```r

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)

```