github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-07 05:04:58 -05:00
Code Issues Packages Projects Releases Wiki Activity

Drop 'shiny' from func names; layout changes

Browse Source
This commit is contained in:
Joe Cheng
2012-06-28 22:27:22 -07:00
parent 7c3a92662f
commit 8cf7ec9738
4 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/02_hash/app.R
View File

@@ -1,15 +1,15 @@
library(digest)
input <- Observable$new(function() {
str <- get.shiny.input('input1')
if (get.shiny.input('addnewline'))
str <- get.input('input1')
if (get.input('addnewline'))
str <- paste(str, "\n", sep='')
return(str)
})
define.shiny.output('md5_hash', function() {
define.output('md5_hash', function() {
digest(input$get.value(), algo='md5', serialize=F)
})
define.shiny.output('sha1_hash', function() {
define.output('sha1_hash', function() {
digest(input$get.value(), algo='sha1', serialize=F)
})