-
Notifications
You must be signed in to change notification settings - Fork 0
/
linear_widget.Rmd
96 lines (88 loc) · 3.28 KB
/
linear_widget.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
---
title: "linearwidget"
author: "Shamil"
date: "September 27, 2018"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r pressure, echo=FALSE}
require(ggplot2)
require(lubridate)
require(maptools)
require(leaflet)
require(tidyverse)
require(mapview)
require(maptools)
require(htmlwidgets)
require(scales)
require(grid)
require(scales)
require(grid)
require(raster)
require(sf)
require(shiny)
require(DT)
require(crosstalk)
require(htmltools)
slider_l <- filter_slider("Completion.Date", "Choose Date Range", linear_shared_data_df, ~Completion.Date, step = 60, ticks = TRUE, animate = FALSE)
checkbox_l <- filter_checkbox("status_type","Project Status", linear_shared_data_df, ~status_type, inline = TRUE)
dropdown_l <- filter_select("Industry","Industry", linear_shared_data_df, ~factor(Industry))
datatable_l <- datatable(linear_shared_data_df, extensions="Scroller", style="bootstrap", class="compact", width="100%",
options=list(deferRender=TRUE, scrollY=500, scroller=TRUE))
leaflet_l <- leaflet()%>%addTiles()%>%addPolylines(data=linear_shared_data)
linear_widget <- bscols(list(slider_l,checkbox_l,dropdown_l,leaflet_l,datatable_l))
save_html(linear_widget,"try3.html")
```
```{r pressure, echo=FALSE}
require(ggplot2)
require(lubridate)
require(maptools)
require(leaflet)
require(tidyverse)
require(mapview)
require(maptools)
require(htmlwidgets)
require(scales)
require(grid)
require(scales)
require(grid)
require(raster)
require(sf)
require(shiny)
require(DT)
require(crosstalk)
require(htmltools)
slider_l <- filter_slider("Completion.Date", "Choose Date Range", linear_shared_data_2_df, ~Completion.Date, step = 60, ticks = TRUE, animate = FALSE)
checkbox_l <- filter_checkbox("status_type","Project Status", linear_shared_data_2_df, ~status_type, inline = TRUE)
dropdown_l <- filter_select("Industry","Industry", linear_shared_data_2_df, ~factor(Industry))
datatable_l <- datatable(linear_shared_data_2_df, extensions="Scroller", style="bootstrap", class="compact", width="100%",
options=list(deferRender=TRUE, scrollY=500, scroller=TRUE))
plotly_l <-
linear_widget <- bscols(list(slider_l,checkbox_l,dropdown_l,leaflet_l,datatable_l))
save_html(linear_widget,"try3.html")
```
```{r, echo=FALSE}
require(plotly)
require(htmltools)
plotly_plot <- plot_geo(linear_multistring2)
save_html(plotly_plot, "alpha1.html")
```
```{r, echo=FALSE}
require(plotly)
require(htmltools)
plotly_plot2 <- plot_mapbox(linear_multistring2)%>% config(displayModeBar = F) %>% layout(xaxis=list(fixedrange=FALSE)) %>% layout(yaxis=list(fixedrange=FALSE))
save_html(plotly_plot2, "alpha2.html")
```
```{r}
require(plotly)
require(DT)
require(crosstalk)
slider_l2 <- filter_slider("Completion.Date", "Choose Date Range", linear_shared_data2, ~Completion.Date, step = 60, ticks = TRUE, animate = FALSE)
checkbox_l2 <- filter_checkbox("status_type","Project Status", linear_shared_data2, ~status_type, inline = TRUE)
dropdown_l2 <- filter_select("Industry","Industry", linear_shared_data2, ~factor(Industry))
plotly_plot4 <- plot_geo(linear_shared_data2)%>%layout(geo=g)%>%config(displayModeBar = F) %>% layout(xaxis=list(fixedrange=FALSE)) %>% layout(yaxis=list(fixedrange=FALSE))
linear_widget2 <- bscols(list(slider_l2,checkbox_l2,dropdown_l2,plotly_plot4))
save_html(linear_widget2, "linear_widget2.html")
```