oganm · January 8, 2018 08:40
diff --git a/shinyJsLogicalConclusion.R b/shinyJsLogicalConclusion.R
 extendShinyjsEvenFurther = function(){
    jscode <- '
 Shiny.addCustomMessageHandler("mymessage", function(message) {
    eval(message);
 });
    '
    tags$head(tags$script(HTML(jscode)))
 }

 jsExecute = function(jscode,session){
    session$sendCustomMessage("mymessage", jscode)
 }
	extendShinyjsEvenFurther = function(){
	jscode <- '
	Shiny.addCustomMessageHandler("mymessage", function(message) {
	eval(message);
	});
	'
	tags$head(tags$script(HTML(jscode)))
	}

	jsExecute = function(jscode,session){
	session$sendCustomMessage("mymessage", jscode)
	}