Added PAT option

OscarValerock · Apr 15, 2024 · 48a4666 · 48a4666
1 parent 1c0e266
commit 48a4666
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 9 deletions.
diff --git a/M.pq b/M.pq
@@ -5,12 +5,19 @@ let
     GitHubUser = "OscarValerock",
     GitHubRepo = "PowerQueryFunctions",
     BaseURL = "https://api.github.com/repos/",
+    PAT = "", // Personal Access Token (PAT) for GitHub API https://docs.github.com/en/authentication/keeping-your-account-and-data-secure/managing-your-personal-access-tokens
+    QueryHeaders = if PAT <> ""
+        then
+            [Authorization = "Bearer  " & PAT] 
+        else
+            [],
 
     #"Get Trees all trees" = Json.Document(
         Web.Contents(
             BaseURL,[
                  RelativePath = GitHubUser&"/"&GitHubRepo&"/git/trees/main",
-                 Query = []
+                 Query = [],
+                 Headers = QueryHeaders
              ]
         )
     ),
@@ -21,7 +28,8 @@ let
         Web.Contents(
             BaseURL,[
                  RelativePath = GitHubUser&"/"&GitHubRepo&"/git/trees/"&filterList,
-                 Query = []
+                 Query = [],
+                 Headers = QueryHeaders
              ]
         )
     ),
@@ -32,7 +40,8 @@ let
         Web.Contents(
             BaseURL,[
                  RelativePath = GitHubUser&"/"&GitHubRepo&"/git/trees/"& tree,
-                 Query = []
+                 Query = [],
+                 Headers = QueryHeaders
              ]
         )
     )[tree],
@@ -52,7 +61,8 @@ let
             #"Get functions fx" = Json.Document(Web.Contents(
                 BaseURL,[
                     RelativePath = GitHubUser&"/"&GitHubRepo&"/git/blobs/"&relativePath,
-                    Query = []
+                    Query = [],
+                    Headers = QueryHeaders
                 ]
             ))[content],
             #"To text" = 
@@ -164,6 +174,7 @@ let
                         Type.Is = Type.Is,
                         Value.ReplaceType = Value.ReplaceType,
                         Value.Type = Value.Type
+                        //,Web.Contents = Web.Contents //Unfortunately adding this function to the M code will create a dynamic error :(
                     ]
                 )
         in

diff --git a/M_Creator.py b/M_Creator.py
@@ -29,7 +29,9 @@
                    'www.linkedin',
                    'youtu.be',
                 ]
-manual_strings = [ ]
+manual_strings = [
+    'Number.Abs'
+ ]
 
 M_Code = """
 
@@ -38,12 +40,19 @@
     GitHubUser = "OscarValerock",
     GitHubRepo = "PowerQueryFunctions",
     BaseURL = "https://api.github.com/repos/",
+    PAT = "", // Personal Access Token (PAT) for GitHub API https://docs.github.com/en/authentication/keeping-your-account-and-data-secure/managing-your-personal-access-tokens
+    QueryHeaders = if PAT <> ""
+        then
+            [Authorization = "Bearer  " & PAT] 
+        else
+            [],
 
     #"Get Trees all trees" = Json.Document(
         Web.Contents(
             BaseURL,[
                  RelativePath = GitHubUser&"/"&GitHubRepo&"/git/trees/main",
-                 Query = []
+                 Query = [],
+                 Headers = QueryHeaders
              ]
         )
     ),
@@ -54,7 +63,8 @@
         Web.Contents(
             BaseURL,[
                  RelativePath = GitHubUser&"/"&GitHubRepo&"/git/trees/"&filterList,
-                 Query = []
+                 Query = [],
+                 Headers = QueryHeaders
              ]
         )
     ),
@@ -65,7 +75,8 @@
         Web.Contents(
             BaseURL,[
                  RelativePath = GitHubUser&"/"&GitHubRepo&"/git/trees/"& tree,
-                 Query = []
+                 Query = [],
+                 Headers = QueryHeaders
              ]
         )
     )[tree],
@@ -85,7 +96,8 @@
             #"Get functions fx" = Json.Document(Web.Contents(
                 BaseURL,[
                     RelativePath = GitHubUser&"/"&GitHubRepo&"/git/blobs/"&relativePath,
-                    Query = []
+                    Query = [],
+                    Headers = QueryHeaders
                 ]
             ))[content],
             #"To text" = 
@@ -95,6 +107,7 @@
                     ),
                     [ 
 #TextToReplace
+                        //,Web.Contents = Web.Contents //Unfortunately adding this function to the M code will create a dynamic error :(
                     ]
                 )
         in