/
plots_select.R
36 lines (36 loc) · 1.48 KB
/
plots_select.R
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
tagList(
br(),
# fluidRow(
# column(width = 3),
# column(width = 6,
# sliderInput("map_area", "Time Range",
# min = as.POSIXlt(min(cars_weather$GPS_UTC_Time)/1000,origin="1970-01-01",tz="EST5EDT"),
# max = as.POSIXlt(max(cars_weather$GPS_UTC_Time)/1000,origin="1970-01-01",tz="EST5EDT"),
# value = c(
# as.POSIXlt(min(cars_weather$GPS_UTC_Time)/1000,origin="1970-01-01",tz="EST5EDT"),
# as.POSIXlt(max(cars_weather$GPS_UTC_Time)/1000,origin="1970-01-01",tz="EST5EDT")
# ))),
# column(width = 3)
# ),
fluidRow(
column(width=4,'Select the variables you wish to plot and click "Update Plot"'),
column(width=5,
selectInput("plotvars",label=NULL, choices=colnames(cars_weather), selected = "GPS_Speed", multiple = TRUE)),
column(width=3,actionButton("makeplot", " Update Plot", icon("line-chart"),
style="color: #fff; background-color: #337ab7; border-color: #2e6da4"))
),
br(),
fluidRow(
dygraphOutput("dygraph")
),
br(),
fluidRow(
"To zoom in on a selected part of the trip, either use the levers to adjust the window at the bottom of the figure,
or click and drag the mouse across the desired zoom region. Reset the zoom to the entire trip length
by double-clicking in the plot window. "
),br(),
# fluidRow(
# verbatimTextOutput("plot_hoverinfo")
# ),
br()
)