Nothing
first_row_to_header <- function(a_table){
colnames(a_table) <- a_table[1, , drop = FALSE]
colnames(a_table) <- gsub(" ", ".", colnames(a_table))
a_table <- a_table[-1, , drop = FALSE]
rownames(a_table) <- seq(nrow(a_table))
a_table
}
is_rstudio_selection <- function(){
context <- rstudioapi::getActiveDocumentContext()
!all(context$selection[[1]]$range$start ==
context$selection[[1]]$range$end)
}
is_tibble <- function(x) inherits(x, "tbl_df")
is_data.table <- function(x) inherits(x, "data.table")
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.