(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 62564, 1327] NotebookOptionsPosition[ 60328, 1268] NotebookOutlinePosition[ 60652, 1284] CellTagsIndexPosition[ 60609, 1281] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Find a position of the largest value in a list:", "Text", CellChangeTimes->{{3.748261536308149*^9, 3.748261548643149*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"PositionLargest\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["PositionLargest"], BoxID -> "PositionLargest"], "[", RowBox[{"{", RowBox[{"100", ",", "200", ",", "100", ",", "200", ",", "50"}], "}"}], "]"}]], "Input", CellChangeTimes->{3.7482615335941486`*^9}, CellLabel->"In[137]:=", CellID->7099978], Cell[BoxData["2"], "Output", CellChangeTimes->{3.748261550187149*^9}, CellLabel->"Out[137]=", CellID->656095556] }, Open ]], Cell["Specify the number of positions to find:", "Text", CellChangeTimes->{{3.748261536308149*^9, 3.748261583098149*^9}}, CellID->347889331], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"PositionLargest\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["PositionLargest"], BoxID -> "PositionLargest"], "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "200", ",", "100", ",", "200", ",", "50"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{3.7482615335941486`*^9, 3.7482615660471487`*^9}, CellLabel->"In[138]:=", CellID->12869667], Cell[BoxData[ RowBox[{"{", "2", "}"}]], "Output", CellChangeTimes->{3.748261550187149*^9, 3.748261588805149*^9}, CellLabel->"Out[138]=", CellID->23986355] }, Open ]], Cell["Get a list of positions for the three largest values:", "Text", CellChangeTimes->{{3.748261596552149*^9, 3.748261613796149*^9}}, CellID->130444220], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"PositionLargest\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["PositionLargest"], BoxID -> "PositionLargest"], "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "200", ",", "100", ",", "200", ",", "50"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.7449361588499813`*^9, 3.744936183003365*^9}, { 3.744936457422279*^9, 3.744936460330928*^9}, {3.744936496007988*^9, 3.744936498863707*^9}}, CellLabel->"In[139]:=", CellID->25007455], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.7482615899941487`*^9}, CellLabel->"Out[139]=", CellID->227849604] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["\<\ Use UpTo to find the position of the two largest moons orbiting each planet:\ \>", "Text", CellChangeTimes->{3.748261640283149*^9}, CellID->414824544], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"moons", "=", RowBox[{"Values", "/@", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"All", ",", "\"\\"", ",", RowBox[{"QuantityMagnitude", "/*", "DeleteMissing"}], ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7482616305561485`*^9, 3.748261630562149*^9}}, CellLabel->"In[140]:=", CellID->469123636], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 8, "Length" -> 8, "InitialType" -> TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Vector[ TypeSystem`Atom[Real], TypeSystem`AnyLength], 8], "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[67.20000000000002], TypeSystem`PackageScope`UnknownShape]], 8, {}], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1955389049], "Type" -> TypeSystem`Assoc[ TypeSystem`Atom[String], TypeSystem`Vector[ TypeSystem`Atom[Real], TypeSystem`AnyLength], 8], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1955389049]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Mercury", Style[ "Mercury", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Mercury"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Mercury"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], {}}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Venus", Style[ "Venus", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Venus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Venus"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], {}}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Earth", Style[ "Earth", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Earth"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Earth"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{7.3459006322855173653772`4.995678626217362*^22}, ShowStringCharacters -> False], Style[ Style[{7.3459006322855173653772`4.995678626217362*^22}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Earth"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Earth"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Mars", Style[ "Mars", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Mars"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Mars"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1.468340774924336`1.9995659225206786*^15, 1.0724880884600402`3.9586073148417724*^16}, ShowStringCharacters -> False], Style[ Style[{1.468340774924336`1.9995659225206786*^15, 1.0724880884600402`3.9586073148417724*^16}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Mars"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Mars"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Jupiter", Style[ "Jupiter", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Jupiter"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Jupiter"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 42], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 42], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Jupiter"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Jupiter"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Saturn", Style[ "Saturn", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Saturn"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Saturn"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 33], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 33], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Saturn"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Saturn"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Uranus", Style[ "Uranus", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Uranus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Uranus"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 21], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 21], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Uranus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Uranus"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Neptune", Style[ "Neptune", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Neptune"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Neptune"]]], "Mouse"], ImageSize -> {{67.20000000000002, Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 9], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 9], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][{ Key["Neptune"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ GeneralUtilities`Slice[ Key["Neptune"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 624246925]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[624246925][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {251., {108.5, 115.5}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{3.748261644642149*^9}, CellLabel->"Out[140]=", CellID->195499292] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"], StyleBox[ "\"PositionLargest\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["PositionLargest"], BoxID -> "PositionLargest"], "[", RowBox[{"#", ",", RowBox[{"UpTo", "[", "2", "]"}]}], "]"}], "&"}], "/@", "moons"}]], "Input", CellLabel->"In[141]:=", CellID->274312949], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 8, "Length" -> 8, "InitialType" -> TypeSystem`Assoc[ TypeSystem`Atom[ TypeSystem`Enumeration[ "Earth", "Jupiter", "Mars", "Mercury", "Neptune", "Saturn", "Uranus", "Venus"]], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 8], "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`KeyValueShape[ TypeSystem`PackageScope`AtomShape[63.], TypeSystem`PackageScope`UnknownShape]], 8, {}], "InitialData" -> TypeSystem`PackageScope`CacheHandle[2089049535], "Type" -> TypeSystem`Assoc[ TypeSystem`Atom[ TypeSystem`Enumeration[ "Earth", "Jupiter", "Mars", "Mercury", "Neptune", "Saturn", "Uranus", "Venus"]], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength], 8], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[2089049535]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Mercury", Style[ "Mercury", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Mercury"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Mercury"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], {}}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Venus", Style[ "Venus", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Venus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Venus"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], {}}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Earth", Style[ "Earth", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Earth"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Earth"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1}, ShowStringCharacters -> False], Style[ Style[{1}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Earth"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ GeneralUtilities`Slice[ Key["Earth"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Mars", Style[ "Mars", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Mars"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Mars"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{2, 1}, ShowStringCharacters -> False], Style[ Style[{2, 1}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Mars"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ GeneralUtilities`Slice[ Key["Mars"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Jupiter", Style[ "Jupiter", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Jupiter"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Jupiter"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{16, 7}, ShowStringCharacters -> False], Style[ Style[{16, 7}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Jupiter"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ GeneralUtilities`Slice[ Key["Jupiter"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Saturn", Style[ "Saturn", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Saturn"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Saturn"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{32, 23}, ShowStringCharacters -> False], Style[ Style[{32, 23}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Saturn"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ GeneralUtilities`Slice[ Key["Saturn"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Uranus", Style[ "Uranus", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Uranus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Uranus"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{19, 10}, ShowStringCharacters -> False], Style[ Style[{19, 10}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Uranus"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ GeneralUtilities`Slice[ Key["Uranus"]]], "Mouse"]]}, { Item[ Pane[ Annotation[ EventHandler[ MouseAppearance[ Mouseover["Neptune", Style[ "Neptune", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Neptune"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ 1454305546][ GeneralUtilities`Slice[ Key["Neptune"]]], "Mouse"], ImageSize -> {{63., Full}, Automatic}], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{9, 6}, ShowStringCharacters -> False], Style[ Style[{9, 6}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][{ Key["Neptune"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ GeneralUtilities`Slice[ Key["Neptune"]]], "Mouse"]]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1454305546]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1454305546][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {133., {108.5, 115.5}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{3.748261660084149*^9}, CellLabel->"Out[141]=", CellID->408772688] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"a4faf3cc-4142-43ce-9ea9-db8128f7f295", CellID->285421464], Cell[639, 25, 149, 2, 70, "Text",ExpressionUUID->"4e04887e-1d07-498d-9a8e-e4318a8693c2", CellID->221583938], Cell[CellGroupData[{ Cell[813, 31, 1825, 45, 70, "Input",ExpressionUUID->"fa6f551f-2490-4bf0-b8cd-429b3c4584a8", CellID->7099978], Cell[2641, 78, 115, 3, 70, "Output",ExpressionUUID->"69bc112e-7dc6-447f-a48a-a6ccb1050f4a", CellID->656095556] }, Open ]], Cell[2771, 84, 142, 2, 70, "Text",ExpressionUUID->"c73be7e5-07dd-4033-951c-531f9eb22bad", CellID->347889331], Cell[CellGroupData[{ Cell[2938, 90, 1876, 46, 70, "Input",ExpressionUUID->"ce63824d-30a9-4248-9f65-1ba4b86faa79", CellID->12869667], Cell[4817, 138, 158, 4, 70, "Output",ExpressionUUID->"1bf97b9c-3a82-4363-aa36-c3f66ceea505", CellID->23986355] }, Open ]], Cell[4990, 145, 155, 2, 70, "Text",ExpressionUUID->"488d47d8-0667-488f-a25c-fa40e636c660", CellID->130444220], Cell[CellGroupData[{ Cell[5170, 151, 1974, 48, 70, "Input",ExpressionUUID->"af2f3b55-351b-4fe8-aff4-1d34a8a25327", CellID->25007455], Cell[7147, 201, 172, 5, 70, "Output",ExpressionUUID->"50f15c07-f450-4156-bd35-e633960ba2e7", CellID->227849604] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7368, 212, 47, 1, 70, "Subsection",ExpressionUUID->"319548e9-bfa6-44cf-8656-05c761ba5e4c", CellID->267254639], Cell[7418, 215, 162, 4, 70, "Text",ExpressionUUID->"6bc64777-d547-4173-b51c-24bb92c8460c", CellID->414824544], Cell[CellGroupData[{ Cell[7605, 223, 457, 12, 70, "Input",ExpressionUUID->"02866651-675f-46d4-b31f-01b25fb4ecdb", CellID->469123636], Cell[8065, 237, 25639, 501, 70, "Output",ExpressionUUID->"137f1fab-ae41-4eb0-9a91-a613d913d86a", CellID->195499292] }, Open ]], Cell[CellGroupData[{ Cell[33741, 743, 1895, 48, 70, "Input",ExpressionUUID->"eb643e9f-ddb3-4e2e-9a4d-f4f20e80980c", CellID->274312949], Cell[35639, 793, 24661, 471, 70, "Output",ExpressionUUID->"6bc87b77-cf9c-4413-b97b-8eec72c06e3e", CellID->408772688] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)