Skip to content

Commit

Permalink
small update
Browse files Browse the repository at this point in the history
  • Loading branch information
wangronin committed Jul 4, 2020
1 parent f0e374e commit f4ef041
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 7 deletions.
5 changes: 2 additions & 3 deletions inst/shiny-server/server/upload.R
Original file line number Diff line number Diff line change
Expand Up @@ -323,9 +323,8 @@ observeEvent(input$upload.remove_data, {
unlink(folderList$data, T)
folderList$data <- list()

updateSelectInput(session, 'Overall.Dim', choices = c('DIM'), selected = 'DIM')
updateSelectInput(session, 'Overall.Funcid', choices = c('Problem ID'),
selected = 'Problem ID')
updateSelectInput(session, 'Overall.Dim', choices = c(), selected = '')
updateSelectInput(session, 'Overall.Funcid', choices = c(), selected = '')

print_html('<p style="color:red;">all data are removed!</p>')
print_html('', 'upload_data_promt')
Expand Down
8 changes: 4 additions & 4 deletions inst/shiny-server/ui.R
Original file line number Diff line number Diff line change
Expand Up @@ -90,13 +90,13 @@ tagAssert <- function(tag, type = NULL, class = NULL, allowUI = TRUE) {
<table class=".table">
<tr>
<td>
<select id="Overall.Dim" style="width: 100px; margin: 5px 5px 5px 5px;">
<option>DIM</option>
<b>Dimension:</b>
<select id="Overall.Dim" style="width: 100px; margin: 7px 20px 5px 1px;">
</select>
</td>
<td>
<select id="Overall.Funcid" style="width: 100px; margin: 5px 5px 5px 5px;">
<option>Problem ID</option>
<b>Problem ID:</b>
<select id="Overall.Funcid" style="width: 100px; margin: 7px 20px 5px 1px;">
</select>
</td>
</tr>
Expand Down

0 comments on commit f4ef041

Please sign in to comment.