implementing employee-directory table

adding NavigationTable function
adding EmployeeDirectory function
adding Table.ToNavigationTable function
adding GetResource function
switching to key authentication

BambooHrPQExtension/BambooHrPQExtension.pq

@@ -1,21 +1,102 @@
 // This file contains your Data Connector logic
 section BambooHrPQExtension;
 
+shared subdomain = "";
+
 [DataSource.Kind="BambooHrPQExtension", Publish="BambooHrPQExtension.Publish"]
-shared BambooHrPQExtension.Contents = (optional message as text) =>
+shared BambooHrPQExtension.Contents = (optional subdomain as text) =>
+    let
+        source = NavigationTable(subdomain)
+    in
+        source
+;
+
+shared NavigationTable = (subdomain as text) =>
+    let
+        objects = #table(
+            {"Name","Key","Data","ItemKind", "ItemName","IsLeaf"},
+            {
+                {"EmployeeDirectory","employeeDirectory",EmployeeDirectory(subdomain), "Table","Table",true}
+            }),
+        NavTable = Table.ToNavigationTable(objects, {"Key"}, "Name", "Data", "ItemKind", "ItemName", "IsLeaf")
+    in
+        NavTable;
+
+/*
+Purpose:
+    Retrieve table of active employees
+Links:
+    https://documentation.bamboohr.com/reference#get-employees-directory-1
+*/
+EmployeeDirectory = (subdomain as text) =>
+    let
+        Source = GetResource( subdomain, "/employees/directory" ),
+        employees = Source[employees],
+        #"Converted to Table" = Table.FromList(employees, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
+        #"Expanded Column1" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", {"id", "displayName", "firstName", "lastName", "preferredName", "gender", "jobTitle", "workPhone", "mobilePhone", "workEmail", "department", "location", "linkedIn", "workPhoneExtension", "photoUploaded", "photoUrl", "canUploadPhoto"}, {"id", "displayName", "firstName", "lastName", "preferredName", "gender", "jobTitle", "workPhone", "mobilePhone", "workEmail", "department", "location", "linkedIn", "workPhoneExtension", "photoUploaded", "photoUrl", "canUploadPhoto"}),
+        #"Changed Type" = Table.TransformColumnTypes(#"Expanded Column1",{{"id", Int64.Type}}),
+        #"Inserted Merged Column" = Table.AddColumn(#"Changed Type", "employeeName", each Text.Combine({[lastName], [firstName]}, ", "), type text),
+        #"Reordered Columns" = Table.ReorderColumns(#"Inserted Merged Column",{"id", "displayName", "employeeName", "firstName", "lastName", "preferredName", "gender", "jobTitle", "workPhone", "mobilePhone", "workEmail", "department", "location", "linkedIn", "workPhoneExtension", "photoUploaded", "photoUrl", "canUploadPhoto"})
+    in
+        #"Reordered Columns"
+;
+
+/*
+Purpose:
+    Retrieve the JSON document from the specified resource
+Parameters:
+    subdomain - the name of the customer's subdomain (e.g. https://[subdomain].bamboohr.com/)
+    resource - the targeted resource (e.g. /employees/directory)
+*/
+GetResource = (subdomain as text, resource as text) =>
+    let
+        credential = Extension.CurrentCredential(),
+        authorization = "Basic " & Binary.ToText(Text.ToBinary( credential[Key] & ":" & "password" ),0),
+        headers = [
+             #"Authorization" = authorization,
+             #"Content-Type" = "application/json",
+             #"Accept" = "application/json"
+        ],
+        BaseUrl = "https://api.bamboohr.com/api/gateway.php/" & subdomain & "/v1",
+        url = BaseUrl & resource,
+        source = Web.Contents(url, [ Headers = headers ]),
+        json = Json.Document(source)
+    in
+        json
+;
+
+/*
+Purpose:
+    Create a navigation table 
+*/
+Table.ToNavigationTable = (
+    table as table,
+    keyColumns as list,
+    nameColumn as text,
+    dataColumn as text,
+    itemKindColumn as text,
+    itemNameColumn as text,
+    isLeafColumn as text
+) as table =>
     let
-        _message = if (message <> null) then message else "(no message)",
-        a = "Hello from BambooHrPQExtension: " & _message
+        tableType = Value.Type(table),
+        newTableType = Type.AddTableKey(tableType, keyColumns, true) meta 
+        [
+            NavigationTable.NameColumn = nameColumn, 
+            NavigationTable.DataColumn = dataColumn,
+            NavigationTable.ItemKindColumn = itemKindColumn, 
+            Preview.DelayColumn = itemNameColumn, 
+            NavigationTable.IsLeafColumn = isLeafColumn
+        ],
+        navigationTable = Value.ReplaceType(table, newTableType)
     in
-        a;
+        navigationTable
+;
 
 // Data Source Kind description
 BambooHrPQExtension = [
     Authentication = [
-        // Key = [],
-        // UsernamePassword = [],
-        // Windows = [],
-        Implicit = []
+        Key = []
     ],
     Label = Extension.LoadString("DataSourceLabel")
 ];