Deprecate r - toggle off with error message to raise issue (#745)

* Update tagui_header.js

* Update tagui_parse.php

src/tagui_header.js

@@ -1221,6 +1221,7 @@ if (params == '') return "this.echo('ERROR - statement missing for " + raw_inten
 else return check_chrome_context(params);}
 
 function r_intent(raw_intent) { // code to support dynamic variables not applicable
+return "this.echo('ERROR - R integration is deprecated, raise an issue if you need to use it')";
 if (raw_intent.toLowerCase() == 'r begin') {inside_r_block = 1; return '';}
 else if (raw_intent.toLowerCase() == 'r finish') {inside_r_block = 0; return '';}
 if (inside_r_block == 1) raw_intent = 'r ' + raw_intent;

src/tagui_parse.php

@@ -959,7 +959,9 @@ function js_intent($raw_intent) {if (strtolower($raw_intent) == "js begin")
 if ($params == "") echo "ERROR - " . current_line() . " statement missing for " . $raw_intent . "\n";
 else return "casper.then(function() { // start of JS code\n".$params."\n}); // end of JS code"."\n\n";}
 
-function r_intent($raw_intent) {if (strtolower($raw_intent) == "r begin")
+function r_intent($raw_intent) {
+echo "ERROR - R integration is deprecated, raise an issue if you need to use it\n"; return "";
+if (strtolower($raw_intent) == "r begin")
 {$GLOBALS['inside_r_block'] = 1; $GLOBALS['integration_block_body'] = "r "; return "";}
 $raw_intent = str_replace('\\','\\\\',$raw_intent); // to send \ correctly over to integration 
 $raw_intent = str_replace('[END_OF_LINE]','\\n',$raw_intent); // replace after above to prevent from escape