Skip to content

Commit 054e9ec

Browse files
ebeyebey
committed
update display of network editing options
1 parent d0ad14c commit 054e9ec

1 file changed

Lines changed: 49 additions & 38 deletions

File tree

‎ui.R‎

Lines changed: 49 additions & 38 deletions
Original file line numberDiff line numberDiff line change
@@ -330,54 +330,65 @@ url = {http://statnetproject.org}
330330

331331
column(6,strong('Symmetrize'),
332332
conditionalPanel(condition="output.nwsum != 'NA'",
333-
radioButtons('symmetrize', label=NULL,
333+
br(),
334+
selectizeInput('symmetrize', label=NULL,
334335
choices=c('Do not symmetrize',
335-
'upper: Copy upper triangle over lower triangle'='upper',
336-
'lower: Copy lower triangle over upper triangle'='lower',
336+
'upper: Copy upper triangle over lower'='upper',
337+
'lower: Copy lower triangle over upper'='lower',
337338
'strong: Intersection of ties'='strong',
338339
'weak: Union of ties'='weak')),
339-
p("After symmetrizing, network should be:"),
340-
actionButton("symmdir", "directed", class="btn-sm"),
341-
actionButton("symmundir", "undirected", class="btn-sm")
340+
conditionalPanel(condition="input.symmetrize != 'Do not symmetrize'",
341+
p("After symmetrizing, network should be:"),
342+
actionButton("symmdir", "directed", class="btn-sm"),
343+
actionButton("symmundir", "undirected", class="btn-sm")
344+
)
345+
342346
)),
343347

344348
column(5,strong('Import new attribute information'),
345349
conditionalPanel(condition="output.nwsum != 'NA'",
346-
selectInput('newattrtype', label='Choose attribute type',
350+
br(),
351+
selectizeInput('newattrtype', label=NULL,
347352
choices=c('vertex attribute',
348353
'vertex names',
349354
'edge attribute',
350-
'edge value')),
351-
span('Upload a file of one of the following types:',br(),
352-
tags$ul(
353-
tags$li('R list object',
354-
span(class="helper",id="filetypehelper5",
355-
icon("question-circle"),
356-
div(id="filetypebox5", class="mischelperbox",
357-
strong("R lists"), "should be named, for example:",
358-
br(),
359-
code("mylist <- list()"),br(),
360-
code("mylist$age <- c(18,27,20)"),br(),
361-
code("mylist$sex <- c('M','F','F')"), br(),
362-
"The names of the elements in the list (e.g. 'age'",
363-
"and 'sex' in the list above)",
364-
"will become the attribute names.",
365-
br(),br(),tags$u("Note:"),'Attributes uploaded as vertex names',
366-
"will automatically be saved into the", code("vertex.names"),
367-
"attribute and the uploaded names will be ignored."))),
368-
tags$li('.csv file',
369-
span(class="helper", id="filetypehelper6",
370-
icon("question-circle"),
371-
div(id="filetypebox6", class="mischelperbox",
372-
strong(".csv files"), "should include a header in the first row.",
373-
"The header of each column will become an attribute name.",
374-
br(),br(),tags$u("Note:"),'Attributes uploaded as vertex names',
375-
"will automatically be saved into the", code("vertex.names"),
376-
"attribute and the uploaded names will be ignored."))))),
377-
fileInput(inputId='newattrvalue', label=NULL),
378-
p('New attribute name(s):'),
379-
verbatimTextOutput('newattrname'),
380-
actionButton('newattrButton', label='Set Attribute', class="btn-sm")
355+
'edge value'),
356+
options=list(placeholder="Select attribute type",
357+
onInitialize = I('function() { this.setValue(""); }')
358+
)),
359+
conditionalPanel(condition="input.newattrtype != ''",
360+
span('Upload a file of one of the following types:',br(),
361+
tags$ul(
362+
tags$li('R list object',
363+
span(class="helper",id="filetypehelper5",
364+
icon("question-circle"),
365+
div(id="filetypebox5", class="mischelperbox",
366+
strong("R lists"), "should be named, for example:",
367+
br(),
368+
code("mylist <- list()"),br(),
369+
code("mylist$age <- c(18,27,20)"),br(),
370+
code("mylist$sex <- c('M','F','F')"), br(),
371+
"The names of the elements in the list (e.g. 'age'",
372+
"and 'sex' in the list above)",
373+
"will become the attribute names.",
374+
br(),br(),tags$u("Note:"),'Attributes uploaded as vertex names',
375+
"will automatically be saved into the", code("vertex.names"),
376+
"attribute and the uploaded names will be ignored."))),
377+
tags$li('.csv file',
378+
span(class="helper", id="filetypehelper6",
379+
icon("question-circle"),
380+
div(id="filetypebox6", class="mischelperbox",
381+
strong(".csv files"), "should include a header in the first row.",
382+
"The header of each column will become an attribute name.",
383+
br(),br(),tags$u("Note:"),'Attributes uploaded as vertex names',
384+
"will automatically be saved into the", code("vertex.names"),
385+
"attribute and the uploaded names will be ignored."))))),
386+
fileInput(inputId='newattrvalue', label=NULL),
387+
p('New attribute name(s):'),
388+
verbatimTextOutput('newattrname'),
389+
actionButton('newattrButton', label='Set Attribute', class="btn-sm")
390+
)
391+
381392
)
382393

383394
)

0 commit comments

Comments
 (0)