library(DiagrammeR)
library(DiagrammeR) mermaid("graph TB subgraph High Level D[Data] --> R[Read into memory] R --> DM[Data manipulation] DM --> V[Visualisation] DM --> S[Statistical Analysis] DM --> O[Output] S --> V V --> Do[Document] Do --> O V --> I[Interactive report] I --> O end")
library(data.table) library(leaflet)
library(data.table) library(leaflet) dt<-fread(system.file("extdata/Accidents2013.csv",package = "Rtraining")) leaflet(data = tail(dt,50)) %>% addTiles() %>% addMarkers(~Longitude, ~Latitude, popup = ~as.character(Accident_Index))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.