B4J Question BANano Oauth2 authentication (SOLVED)

    BANano.Header.AddJavascriptFile("https://apis.google.com/js/client.js")
    BANano.Header.AddJavascriptFile("https://apis.google.com/js/api.js")

Sub BANano_Ready()
    Dim body As BANanoElement = BANano.GetElement("#body")
    body.Append("Hello Walter")
    BANano.RunInlineJavascriptMethod("loadlib", Null)
    BANano.Sleep(500)
    BANano.RunInlineJavascriptMethod("SignIn", Null)
End Sub

BANano.RunInlineJavascriptMethod("execute", Array ("waveform", 5633571828006912))

Dim gapi As BANanoObject

LoadLib

Sub LoadLib()
    Log("loaded client libs")
    gapi.Initialize("gapi")
    gapi.RunMethod("load", Array("client:auth2", BANano.CallBack(Me, "InitClient", Null)))
End Sub

Sub InitClient() 'ignore
    Dim Params As Map
    Params.Initialize
    Params.Put("apiKey", "AIzaSyCAjcxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
    Params.Put("discoveryDocs", Array("https://datastore.googleapis.com/$discovery/rest?version=v1"))
    Params.Put("clientId", "28675018xxxxxxxxxxxxxxxxxxxxxxxxxxxxge.apps.googleusercontent.com")
    Params.Put("scope", "https://www.googleapis.com/auth/datastore")
 
    BANano.Await(gapi.GetField("client").RunMethod("init", Params))
 
    Log(gapi.GetField("auth2").RunMethod("getAuthInstance", Null).GetField("isSignedIn").RunMethod("get", Null))
End Sub

Private Sub SKButton1_Click (event As BANanoEvent)
    Dim Projects As BANanoObject = gapi.GetField("client").GetField("datastore").GetField("projects")
 
    Dim Kind as String = "waveform"
    Dim ID as long = 1234567890123
    Dim Params As String = $"
    {
"projectId": "snaplab-993",
"resource": {
"readOptions": {
"readConsistency": "EVENTUAL"
},
"keys": [
{
"path": [
{
                "kind": "${Kind}",
                "id": ${ID}
              }
            ],
            "partitionId": {
              "namespaceId": "current_drain_data",
              "projectId": "snaplab-993"
            }
          }
        ]
      }
    }
    "$
   
   ' make an object from the string
    Params = BANano.FromJson(Params)
    
    Log(Params)

    Dim JsonObject As BANanoObject
    Dim JsonStr as String

    Dim prom As BANanoPromise = Projects.RunMethod("lookup", Params) 
    prom.then(JsonObject) 
        Log(JsonObject)
        Return JsonObject.Body ' resolve the body part of the response stream
    prom.then(JsonStr)       
        Dim newObj as BANanoObject = BANano.FromJson(jsonStr) ' let(s make a javascript json object from it

        Dim founds() As BANanoObject = newObj.GetField("found") ' <----
        Log(founds)
        Dim values As List = founds(0).GetField("entity").GetField("properties").GetField("ch0").GetField("arrayValue").GetField("values")
        For i = 0 To values.Size - 1
            Dim m As Map = values.Get(i)
            Log(m.Get("doubleValue"))
        Next
    prom.end
End sub

Dim Params As String = $"
    {
      "projectId": "snaplab-993",
      "resource": {
        "readOptions": {
          "readConsistency": "EVENTUAL"
        },
        "keys": [
          {
            "path": [
              {
                "kind": "${Kind}",
                "id": ${ID}
              }
            ],
            "partitionId": {
              "namespaceId": "current_drain_data",
              "projectId": "snaplab-993"
            }
          }
        ]
      }
    }
    "$
    
   ' make an object from the string
    Params = BANano.FromJson(Params)
    
    log(Params)

    ...

    Dim JsonObject As BANanoObject
    Dim prom As BANanoPromise = projects.RunMethod("lookup", Array(params))
    prom.then(JsonObject)   'if I leave this line uncommented I get an error

Sub LoadLib()
    Log("loaded client libs")
    gapi.Initialize("gapi")
    gapi.RunMethod("load", Array("client:auth2", BANano.CallBack(Me, "InitClient", Null)))
End Sub

Sub isSignedIn As Boolean
    Return gapi.GetField("auth2").RunMethod("getAuthInstance", Null).GetField("isSignedIn").RunMethod("get", Null)
End Sub

Sub InitClient()
    Dim params As Map
    params.Initialize
    params.Put("apiKey", API_KEY)
    params.Put("discoveryDocs", Array("https://datastore.googleapis.com/$discovery/rest?version=v1"))
    params.Put("clientId", Client_ID)
    params.Put("scope", "https://www.googleapis.com/auth/datastore")
   
    BANano.Await(gapi.GetField("client").RunMethod("init", params))
   '''SignIn
    Log("is SignedIn: " & isSignedIn)
    If isSignedIn Then
        gapi.GetField("client").RunMethod("setApiKey", API_KEY)
        Log("loaded url: " & gapi.GetField("client").RunMethod("load", "https://content.googleapis.com/discovery/v1/apis/datastore/v1beta3/rest"))
        LoadData
    Else
        SignIn
    End If
   
End Sub

Sub SignIn
    BANano.Await(gapi.GetField("auth2").RunMethod("getAuthInstance", Null).RunMethod("signIn", Null))
End Sub

    BANano.Header.AddJavascriptFile("https://apis.google.com/js/client.js")
    BANano.Header.AddJavascriptFile("https://apis.google.com/js/api.js")

Sub LoadData()
    Dim projects As BANanoObject = gapi.GetField("client").GetField("datastore").GetField("projects")
    Dim params As BANanoObject = $"
    {
      "projectId": "${ProjectID}",
      "resource": {
        "readOptions": {
          "readConsistency": "EVENTUAL"
        },
        "keys": [
          {
            "path": [
              {
                "kind": "${Kind}",
                "id": ${WaveFormID}
              }
            ],
            "partitionId": {
              "namespaceId": "current_drain_data",
              "projectId": "${ProjectID}"
            }
          }
        ]
      }
    }
    "$

    params = BANano.FromJson(params)
    Dim jsonStr As BANanoObject
    Dim err As Object
    Dim JsonObject As BANanoFetchResponse
    Dim prom As BANanoPromise = projects.RunMethod("lookup", params)
    prom.then(JsonObject)
    Return JsonObject.Body
    prom.Then(jsonStr)
    Log(BANano.IsJson(jsonStr))
    Log(BANano.IsString(jsonStr))
    Dim newObj As BANanoObject = BANano.FromJson(jsonStr) ' let(s make a javascript json object from it

    Dim founds() As BANanoObject = newObj.GetField("found") ' <----
    Log(founds)
    Dim current As List = founds(0).GetField("entity").GetField("properties").GetField("ch0").GetField("arrayValue").GetField("values")
    Dim time As List = founds(0).GetField("entity").GetField("properties").GetField("time").GetField("arrayValue").GetField("values")
   

    Dim currVals(current.Size) As Double
    Dim timeVals(time.Size) As Double
    For i = 0 To current.Size - 1
        Dim m1 As Map = current.Get(i)
        currVals(i) = m1.Get("doubleValue")
    Next
   
    Dim mm As Map = time.Get(0)
    Log("mm(0): " & mm.Get("doubleValue"))
    For j = 0 To time.Size - 1
        Dim m2 As Map = time.Get(j)
        timeVals(j) = m2.Get("doubleValue")
    Next
    Log("currVals size: " & currVals.Length)
    Log("timeVals size: " & timeVals.Length)
   
    Dim description As String = ""
    Dim err2 As BANanoObject
    description = founds(0).GetField("entity").GetField("properties").GetField("description").GetField("stringValue")
    Log("description: " & description)
    PlotlyChart1.InitializePlotly(description, timeVals, currVals)  'PlotlyChart1 is the variable created from the PlotlyChart customview class, the parameters passed are X axis values, y Axis values and description for Title.
    prom.Else(err)
    Log("error: " & err)
    BANano.ReturnThen("")
    prom.end
End Sub