# NOT RUN {
# getting the capturing date from the name of Sentinel-2 images
file.sen <- c("S2A_MSIL1C_20170102T111442_N0204_R137_T30TWN_20170102T111441.SAFE",
"S2A_OPER_PRD_MSIL1C_PDMC_20160308T090616_R094_V20160305T110109_20160305T110109")
date.sen <- senGetDates(file.sen)
print(date.sen)
print(format(date.sen,"%Y%j"))
senGetDates(file.sen, format = "%Y%j")
# }
Run the code above in your browser using DataLab