|
@@ -99,7 +99,7 @@ ui <- fillPage(
|
99
|
99
|
div(id="loc2"),
|
100
|
100
|
htmlOutput("secondarylochtml"))
|
101
|
101
|
),
|
102
|
|
- absolutePanel(top=10, right=9, id="infobuttoncontainer",
|
|
102
|
+ absolutePanel(top=13, right=13, id="infobuttoncontainer",
|
103
|
103
|
title="Toggle (I)nformation",
|
104
|
104
|
prettyToggle("mapinfobutton",
|
105
|
105
|
label_on = NULL,
|
|
@@ -108,15 +108,16 @@ ui <- fillPage(
|
108
|
108
|
icon_off = icon("info"),
|
109
|
109
|
animation = "pulse",
|
110
|
110
|
inline = TRUE,
|
|
111
|
+ bigger=TRUE,
|
111
|
112
|
status_on = "danger",
|
112
|
113
|
status_off = "primary",
|
113
|
114
|
value = TRUE)
|
114
|
115
|
),
|
115
|
|
- absolutePanel(top = 40, right = 6, id="control2", title="Toggle pane(L)",
|
|
116
|
+ absolutePanel(top = 45, right = 7, id="control2", title="Toggle pane(L)",
|
116
|
117
|
prettySwitch("controlswitch", value=TRUE, label = NULL,
|
117
|
118
|
slim = FALSE,
|
118
|
119
|
inline=TRUE, status="info",
|
119
|
|
- fill=FALSE, bigger=FALSE)),
|
|
120
|
+ fill=TRUE, bigger=FALSE)),
|
120
|
121
|
absolutePanel(bottom = 26, right = 10, id="loading",
|
121
|
122
|
p("Loading...")),
|
122
|
123
|
absolutePanel(bottom=26, right=10, left=10, top=10, id="infopanel",
|