Nothing
#' @title Split Chunk
#' @description Split a chunk into two chunks
#' @details Will split below row of the current cursor position or under the highlighted text.
#'
#' @rdname chunksplitr
#' @export
#' @importFrom rstudioapi getSourceEditorContext insertText
#'
chunksplitr <- function(){
adc <- rstudioapi::getSourceEditorContext()
rng <- rstudioapi::document_range(
start = rstudioapi::document_position(adc$selection[[1]]$range$end[1], Inf),
end = rstudioapi::document_position(adc$selection[[1]]$range$end[1], Inf)
)
idx <- max(grep('^```\\{r',adc$contents[1:adc$selection[[1]]$range$start[[1]]]))
chunk_params <- paste0(c('r',strsplit(gsub('```\\{|\\}','',adc$contents[idx]),',')[[1]][-1]),collapse = ',')
rstudioapi::insertText(
location = rng,
text = sprintf("\n```\n \n```{%s}",chunk_params)
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.