Nothing
#####################################################################
#*copying the data set 100 times;
#' @export
#' @import formattable
#' @import mefa
replicate_data<- function(start,end,by=NULL,Before,After,data){
#library(mefa)
table2<-rep(data,101)
mu<-seq(start*100,end*100, by=(end-start))
mu<-rep(mu,each=nrow(data))
if(!is.null(data)){
before<-with(data,Before-mu/100)
after<- data$After
}
else {
before<-Before-mu/100
after<- After
}
mee_chua<-cbind(mu,before,after)
mee_chua<-as.data.frame(mee_chua)
formattable(mee_chua,
align =c("l","c","r"),
list(`Indicator Name` = formatter("span", style = ~ style(color = "grey",font.weight = "bold"))
))
mee_chua<<-mee_chua
print(mee_chua)
}
#replicate_data(50,60,"Before","After",data=language_test)
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.