prevent multiple <script>s from being HTML escaped

`markdown::markdownToHTML` will escape multiple scripts if they are
inline with divs, see https://github.com/rstudio/markdown/issues/74

so, separate the divs and scripts with a new line

Author: chriddyp

Diff for: R/offline.R

@@ -60,7 +60,7 @@ offline <- function(p = last_plot(), height = 400, width = "100%",
 
 new_offline <- function(data, layout, height, width, id) {
   sprintf(
-    '<div class="%s loading" style="color: rgb(50,50,50);">Drawing...</div><div id="%s" style="height: %s; width: %s;" ></div><script type="text/javascript">Plotly.plot("%s", %s, %s).then(function() {$(".%s.loading").remove();})</script>', 
+    '<div class="%s loading" style="color: rgb(50,50,50);">Drawing...</div><div id="%s" style="height: %s; width: %s;" ></div>\n<script type="text/javascript">Plotly.plot("%s", %s, %s).then(function() {$(".%s.loading").remove();})</script>',
     id, id, height, width, id, data, layout, id
   )
 }