petra
/
commute
Watch 1
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Activity
Browse Source

should be a fillpage not a fluidpage

Petra Lamborn 3 years ago
parent
04caa6069e
commit
2d28129c4d
2 changed files with 2 additions and 6 deletions
Unified View Show Diff Stats
  1. 1
    1
      viz/app.R
  2. 1
    5
      viz/extras.R

+ 1
- 1
viz/app.R View File

44 
 hrstr <- "<hr/>"
 44 
 hrstr <- "<hr/>"
45
45
46 
 # Define UI
 46 
 # Define UI
47 
-ui <- fluidPage(
47 
+ui <- fillPage(
48 
   useShinyjs(),
 48 
   useShinyjs(),
49 
   leafletjs,
 49 
   leafletjs,
50 
   keyboardjs,
 50 
   keyboardjs,

+ 1
- 5
viz/extras.R View File

1 
 extracss <- "
 1 
 extracss <- "
2 
-html, body {
3 
-  width:100%;
4 
-  height:100%
5 
-}
6 
 #map {
 2 
 #map {
7 
   height: 100% !important;
 3 
   height: 100% !important;
8 
   position: absolute !important;
 4 
   position: absolute !important;
34 
 }
 30 
 }
35 
 #mapcontrol {
 31 
 #mapcontrol {
36 
   width: 20em;
 32 
   width: 20em;
37 
-  max-height: 90%;
33 
+  max-height: 95%;
38 
   overflow: auto;
 34 
   overflow: auto;
39 
   -ms-overflow-style: none;  /* IE and Edge */
 35 
   -ms-overflow-style: none;  /* IE and Edge */
40 
   scrollbar-width: none;  /* Firefox */
 36 
   scrollbar-width: none;  /* Firefox */