expandable box without icon

Author: ebey

server.R

@@ -2381,9 +2381,6 @@ outputOptions(output,'ninfocentmax',suspendWhenHidden=FALSE)
 #' The user is only allowed to change the dataset on the first tab; on the
 #' following tabs I output the current dataset as a reminder of what network
 #' they are working with. 
-#' 
-#' Coming soon: term documentation.
-
 
 #+ eval=FALSE
 #UNCOMMENT AFTER RELEASE FOR TERM DOCUMENTATION

ui.R

@@ -795,6 +795,7 @@ url = {http://statnetproject.org}
             column(5,
                tabsetPanel(
                  tabPanel("Term Documentation",
+                  div(class="placeholder",
                   fluidRow(
                            bsButtonGroup("matchingorall", label=NULL, toggle="radio", 
                                  value="matching",
@@ -803,14 +804,12 @@ url = {http://statnetproject.org}
                            uiOutput("listofterms")
                            ),
                   div(id="termdocbox",
-                    verbatimTextOutput("termdoc"),
-                    fluidRow(align="center",
-                      div(id="termexpand", 
-                        icon(name="angle-double-down", class="fa-2x"))
-                    ))
-                  
+                    verbatimTextOutput("termdoc")
+                    )
+                  )
                  ),
                  tabPanel("Control Options",
+                    div(class="placeholder",
                     fluidRow(
                       column(3,
                         inlineSelectInput('controltype',label=NULL, 
@@ -850,10 +849,9 @@ url = {http://statnetproject.org}
                                          p("Coming soon")),
                         conditionalPanel(condition="input.controltype == 'Other'",
                                          p("Coming soon"))
-                        ))
+                        )))
                      )
             ),
-          br(),br(),
          fluidRow(
            column(2,
                   p('Current ergm formula:')),

www/alert.js

@@ -90,14 +90,14 @@ $(document).ready(function(){
     $(".chromewarningbox").toggle(500);
   });
 
-  $("#termexpand").click(function(){
+  $("#termdocbox").click(function(){
     if($("#termdocbox").height()<100){
       $("#termdocbox").css({
-      "max-height":"250px"
+      "height":"250px"
       });
     } else {
       $("#termdocbox").css({
-      "max-height":"75px"
+      "height":"65px"
       });
     }
 

www/style.css

@@ -218,27 +218,31 @@ div .mcmcopt {
   margin-bottom:2px;
   margin-left:2px;
 }
+div.placeholder {
+  height:110px;
+}
 #termdoc {
   background:#FFFFFF;
   border:none;
 }
 #termdocbox {
   position:absolute;
-  max-height:75px;
+  margin-right:10px;
+  height:65px;
   border: 1px solid #CECED8;
   border-radius: 5px;
   overflow:scroll;
+  z-index:9;
 }
 #termexpand {
   position:absolute;
-  width:50px;
-  height:22px;
-  margin-bottom:2px;
+  width:30px;
+  height:20px;
   background: #FFFFFF;
   border: 1px solid #CECED8;
   border-radius: 5px;
-  border-top:none;
   color: #A5A5AD;
+  z-index:10;
 }
 #termexpand:hover {
   color: #737379;