Skip to content

Instantly share code, notes, and snippets.

@hafen
hafen / example.R
Last active March 3, 2016 21:41
addCallback for rmote
my_callback <- function(expr, value, ok, visible) {
if(inherits(value, "help_files_with_topic")) {
message("I'm doing one more thing with this help object...")
# do rmote serving stuff...
# except the default print method has already been called
# which if help_type == "text" will defeat the purpose of rmote
# and if help_type == "html" will result in something like
# "Error: no display specified" on a headless linux system
} else if(inherits(value, "htmlwidget")) {
message("I'm doing one more thing with this htmlwidget...")
@hafen
hafen / .block
Created March 10, 2016 01:24
blog post example
license: none
height: 520
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 05:14
iris example
license: none
height: 520
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 05:41
iris example w/ custom hover / url
license: none
height: 520
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 05:53
adding non-default tools (e.g. lasso select)
license: none
height: 520
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 06:21
axis control
license: none
height: 520
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 06:26
stat layers: model fits
license: none
height: 600
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 06:27
stat layers: model fits
license: none
height: 520
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 06:32
stat layers: histogram / density
license: none
height: 400
scrolling: no
border: yes
@hafen
hafen / .block
Created June 30, 2016 06:57
stat layers: hexbin
license: none
height: 520
scrolling: no
border: yes