|
Output of the examples in the left:
|
library(shiny)
function(input, output) {
output$ex_out <- renderPrint({
str(sapply(sprintf('e%d', 0:7), function(id) {
input[[id]]
}, simplify = FALSE))
})
output$github <- renderText({
paste('You selected', if (input$github == '') 'nothing' else input$github,
'in the Github example.')
})
}library(shiny)
fluidPage(
title = 'Selectize examples',
sidebarLayout(
sidebarPanel(
selectInput(
'e0', '0. An ordinary select input', choices = state.name,
selectize = FALSE
),
selectizeInput(
'e1', '1. A basic example (zero-configuration)',
choices = state.name
),
selectizeInput(
'e2', '2. Multi-select', choices = state.name, multiple = TRUE
),
selectizeInput(
'e3', '3. Item creation', choices = state.name,
options = list(create = TRUE)
),
selectizeInput(
'e4', '4. Max number of options to show', choices = state.name,
options = list(maxOptions = 5)
),
selectizeInput(
'e5', '5. Max number of items to select', choices = state.name,
multiple = TRUE, options = list(maxItems = 2)
),
# I() indicates it is raw JavaScript code that should be evaluated, instead
# of a normal character string
selectizeInput(
'e6', '6. Placeholder', choices = state.name,
options = list(
placeholder = 'Please select an option below',
onInitialize = I('function() { this.setValue(""); }')
)
),
selectInput(
'e7', '7. selectInput() does not respond to empty strings',
choices = state.name
)
),
mainPanel(
helpText('Output of the examples in the left:'),
verbatimTextOutput('ex_out'),
# use Github instead
selectizeInput('github', 'Select a Github repo', choices = '', options = list(
valueField = 'url',
labelField = 'name',
searchField = 'name',
options = list(),
create = FALSE,
render = I("{
option: function(item, escape) {
return '<div>' +
'<strong><img src=\"http://selectize.github.io/selectize.js/images/repo-' + (item.fork ? 'forked' : 'source') + '.png\" width=20 />' + escape(item.name) + '</strong>:' +
' <em>' + escape(item.description) + '</em>' +
' (by ' + escape(item.username) + ')' +
'<ul>' +
(item.language ? '<li>' + escape(item.language) + '</li>' : '') +
'<li><span>' + escape(item.watchers) + '</span> watchers</li>' +
'<li><span>' + escape(item.forks) + '</span> forks</li>' +
'</ul>' +
'</div>';
}
}"),
score = I("function(search) {
var score = this.getScoreFunction(search);
return function(item) {
return score(item) * (1 + Math.min(item.watchers / 100, 1));
};
}"),
load = I("function(query, callback) {
if (!query.length) return callback();
$.ajax({
url: 'https://api.github.com/legacy/repos/search/' + encodeURIComponent(query),
type: 'GET',
error: function() {
callback();
},
success: function(res) {
callback(res.repositories.slice(0, 10));
}
});
}")
)),
helpText('If the above searching fails, it is probably the Github API limit
has been reached (5 per minute). You can try later.'),
verbatimTextOutput('github')
)
)
)