edit menu for term documentation

ebey · ebey · commit 28074bc2bed7 · 2015-04-08T17:22:10.000-07:00
diff --git a/server.R b/server.R
@@ -2370,7 +2370,7 @@ output$listofterms <- renderUI({
     matchterms <- unique(matchterms)
     current.terms <- unlist(matchterms)
   }
-  inlineSelectInput('chooseterm',label = NULL,
+  selectizeInput('chooseterm',label = NULL,
               choices = current.terms)
   
 })
diff --git a/ui.R b/ui.R
@@ -798,9 +798,13 @@ url = {http://statnetproject.org}
                  tabPanel("Term Documentation",
                   br(),
                   div(class="placeholder",
-                      actionButton("matchingButton", "Compatible terms", class="btn-sm"),
-                      actionButton("allButton", "All terms", class="btn-sm"),
-                      uiOutput("listofterms"),
+                      fluidRow(
+                        column(6,
+                               actionButton("matchingButton", "Compatible terms", class="btn-sm"),
+                               actionButton("allButton", "All terms", class="btn-sm")
+                               ),
+                        column(4, uiOutput("listofterms"))
+                      ),
                   div(id="termdocbox",
                       verbatimTextOutput("termdoc")
                     ),

Original file line number	Diff line number	Diff line change
`@@ -2370,7 +2370,7 @@ output$listofterms <- renderUI({`
`2370`	`2370`	`matchterms <- unique(matchterms)`
`2371`	`2371`	`current.terms <- unlist(matchterms)`
`2372`	`2372`	`}`
`2373`		`- inlineSelectInput('chooseterm',label = NULL,`
	`2373`	`+ selectizeInput('chooseterm',label = NULL,`
`2374`	`2374`	`choices = current.terms)`
`2375`	`2375`
`2376`	`2376`	`})`