Cree una línea de tiempo de archivos por fecha del archivo
Cree un FileSystemMap de los archivos de un directorio y últimas fechas de modificación.
In[1]:=
files = FileSystemMap[FileDate,
FileNameJoin[{$HomeDirectory, "Downloads"}]]
In[2]:=
<|"2 page flowing Tutorial Template.doc" ->
DateObject[{2016, 3, 2}, TimeObject[{9, 53, 1.`}, TimeZone -> -4.`],
TimeZone -> -4.`],
"2 page step-by-step Tutorial Template.doc" ->
DateObject[{2016, 3, 2},
TimeObject[{9, 52, 57.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"Files.tar.gz" ->
DateObject[{2016, 7, 8},
TimeObject[{12, 36, 45.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"desktop.ini" ->
DateObject[{2016, 5, 18},
TimeObject[{12, 50, 45.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"M-WIN-L-11.0.0-5555928.iso" ->
DateObject[{2016, 6, 29},
TimeObject[{13, 2, 9.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"SenseHatBlogPost.txt" ->
DateObject[{2016, 2, 24},
TimeObject[{12, 29, 50.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"ubuntu-15.04-snappy-armhf-raspi2.img" ->
DateObject[{2016, 4, 22},
TimeObject[{22, 53, 2.`}, TimeZone -> -4.`], TimeZone -> -4.`],
"ubuntu-15.10-desktop-amd64.iso" ->
DateObject[{2016, 2, 24},
TimeObject[{2, 6, 29.`}, TimeZone -> -4.`], TimeZone -> -4.`]|>
Cree una línea de tiempo de cuando cada archivo en el directorio fue modificado.
In[3]:=
TimelinePlot[files]
Out[3]=
Aisle los archivos que fueron creados antes del 1 de junio de 2016, y represéntelos gráficamente de forma separada.
In[4]:=
TimelinePlot[Select[files, (# < DateObject[{2016, 6, 1}]) &]]
Out[4]=