== Enabling more styling options for actionButton == The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons
Added support for these styles to the actionButton.
#find top level expression | |
ancestor <- function(code.pd,id,ancestors_parent_id=0) { | |
this <- code.pd[code.pd$id == id,] | |
if(this$parent == ancestors_parent_id) return(this) | |
immediate_parent = code.pd[code.pd$id == this$parent,] | |
if(immediate_parent$parent == ancestors_parent_id) | |
return(immediate_parent) | |
return(ancestor(code.pd,immediate_parent$id,ancestors_parent_id)) | |
} |
require(shiny) | |
require(rCharts) | |
inputChoices <- c("A", "B", "C", "D") | |
shinyServer(function(input, output, session){ | |
input2Choices <- reactive({ | |
inputChoices[-grep(input$input1, inputChoices)] | |
}) |
?showReactLog | |
options(shiny.reactlog=TRUE); | |
session$sendCustomMessage(type="jsCode", | |
list(code= paste("$('#",id,"').prop('disabled',true)" | |
,sep=""))) | |
tags$head(tags$script(HTML(' | |
Shiny.addCustomMessageHandler("jsCode", |
library(shiny) | |
library(shinyIncubator) | |
options(shiny.reactlog=TRUE); | |
shinyServer(function(input, output,session) { | |
output$test <- renderPlot({ | |
input$meh | |
print("wassup") | |
withProgress(session, min=1, max=15, { |
library(shiny) | |
shinyServer(function(input,output){ | |
reval <- reactiveValues(a= 1,b=2,dummy= rnorm(1)) | |
observe({ | |
if(input$hello == 0) return() | |
random.number <- rnorm(1) | |
reval$dummy <- random.number | |
b <- reval$b |
data <- read.csv("c:/bb2.csv") | |
cor.data <- cor(data[sapply(data,typeof)=="double"],method="spearman") | |
dist <- function(y,x) { | |
if(is.null(dim(x))) { | |
sqrt((x[1] - y[1])^2 + (x[2] - y[2])^2) | |
} else { | |
sqrt((x[,1] - y[1])^2 + (x[,2] - y[2])^2) | |
} |
# reading and writing files | |
# press ctrl+enter to send | |
iris | |
fix(iris) | |
write.csv(iris,"c:/temp/iris.csv") | |
iris2 = read.csv("c:/temp/iris.csv") | |
nrow(iris2) | |
# get help |
library(shiny) | |
shinyServer(function(input, output, session) { | |
# Partial example | |
output$meh <- renderPrint({ | |
print("Press enter or focusout to update --- ") | |
print(input$myTextInput ) |
== Enabling more styling options for actionButton == The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons
Added support for these styles to the actionButton.
data a; | |
do i = 1 to 10000; | |
b = i; | |
output; | |
end; | |
run; | |
%include "path/to/split_into_columns.sas"; | |
libname outlib "path/to/output/dataset/"; |