Calculate_N_from_Start_to_End <- function(N_application_on_expID, startdate, enddate){
startdate <- dmy(startdate)
enddate <-mdy(enddate)
N_application_on_expID$Date <- dmy(N_application_on_expID$Date)
N_applied <- N_application_on_expID[(N_application_on_expID$Date >= startdate) & (N_application_on_expID$Date < enddate),]
if(dim(N_applied)[1]>0){
result <-sum(N_applied$TotalN)
} else {
result <- 0
}
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.