Nothing
anti_addin <- function(){
inst_pkgs <- utils::installed.packages()[,c(1,2)]
inst_pkgs1 <- file.path(inst_pkgs[,2],inst_pkgs[,1],'rstudio','addins.dcf')
addin_pkgs <- inst_pkgs1[which(file.exists(inst_pkgs1))]
addin_pkgs2 <- gsub('addins.dcf$','_addins.dcf',
inst_pkgs1[which(file.exists(gsub('addins.dcf$','_addins.dcf',inst_pkgs1)))])
check_addins <- sort(c(addin_pkgs,addin_pkgs2))
check_pkgs <- unlist(lapply(strsplit(check_addins,'/'),function(x) x[length(x)-2]))
check <- data.frame(check_addins,check_pkgs,stringsAsFactors = FALSE)
check <- split(check,check$check_pkgs)
addin_pkgs <- sapply(check,function(x){
x[nrow(x),1]
},USE.NAMES = FALSE,simplify = TRUE)
names(addin_pkgs) <- NULL
anti_addins <- gsub('/addins.dcf$','/_addins.dcf',addin_pkgs)
toggle_addins <- gsub('/addins.dcf$','/_toggle',addin_pkgs)
for(idx in 1:length(addin_pkgs)){
if(!file.exists(anti_addins[idx]))
file.copy(addin_pkgs[idx],anti_addins[idx],overwrite = FALSE)
}
pkgs <- sapply(strsplit(anti_addins,'/'),function(x){
x[length(x)-2]
})
current_keys <- fetch_addin_keys()
for(this_pkg in pkgs){
this_dcf <- read.dcf(anti_addins[grep(this_pkg,pkgs)])
this_key <- paste(this_pkg,this_dcf[,'Binding'],sep='::')
if(!'Key'%in%colnames(this_dcf))
this_dcf <- cbind(this_dcf,Key=this_key)
if(!is.null(current_keys)){
this_dcf <- cbind(this_dcf,Shortcut=NA)
for(idx in 1:nrow(this_dcf)){
this_dcf[idx,'Shortcut'] <- current_keys$Shortcut[match(this_dcf[idx,'Key'],current_keys$Key)]
}
}
write.dcf(this_dcf,file = anti_addins[grep(this_pkg,pkgs)])
if(!file.exists(toggle_addins[grep(this_pkg,pkgs)])){
write.dcf(cbind(Key=this_key,Hide='false'),file=toggle_addins[grep(this_pkg,pkgs)])
}
}
return(invisible(anti_addins))
}
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.