Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
migale
affiliationExplorer
Commits
61c53484
Commit
61c53484
authored
Jan 21, 2020
by
Sandra Derozier
Browse files
Table Row Selection
parent
6540677a
Changes
2
Hide whitespace changes
Inline
Side-by-side
R/app_server.R
View file @
61c53484
...
...
@@ -29,7 +29,17 @@ app_server <- function(input, output, session) {
data
<-
extract_affiliation
(
all
$
affi
,
input
$
asv
)
amb
<-
find_level
(
data
)
output
$
txt
<-
renderUI
({
paste
(
input
$
asv
,
"- "
,
nrow
(
data
)
,
" affiliation, ambiguity at rank "
,
amb
)})
output
$
table
<-
DT
::
renderDT
({
data
})
output
$
table
<-
DT
::
renderDT
({
data
},
selection
=
'single'
)
#output$selection <- renderUI({paste(output$table$tableId_rows_selected)})
output
$
selection
<-
renderUI
({
s
=
input
$
table_rows_selected
if
(
length
(
s
))
{
# cat('These rows were selected: ')
# cat(s, sep = ', ')
paste
(
"These rows were selected: "
,
s
)
}
})
})
})
...
...
R/app_ui.R
View file @
61c53484
...
...
@@ -33,7 +33,9 @@ app_ui <- function() {
solidHeader
=
T
,
htmlOutput
(
"txt"
),
HTML
(
"<br/>"
),
DT
::
DTOutput
(
"table"
)
DT
::
DTOutput
(
"table"
),
HTML
(
"<br/>"
),
htmlOutput
(
"selection"
)
)
)
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment