Créez une chronologie de fichiers par date de ficher
Créez un FileSystemMap des fichiers d'un répertoire et des dates de dernière modification.
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.`]|>
Créez une chronologie lorsque chaque fichier dans le répertoire a été modifié.
In[3]:=
TimelinePlot[files]
Out[3]=
Isolez les fichiers créés avant le 1er juin 2016 et tracez-les séparément.
In[4]:=
TimelinePlot[Select[files, (# < DateObject[{2016, 6, 1}]) &]]
Out[4]=