if (FALSE) {
  # first sign in user and get the 'id_token':
  user <- sign_in(email = "user@gmail.com", password = "password")
  id_token <- user$idToken
  # change password:
  response <- change_password(
    id_token = id_token,
    password = "new-user-password"
  )
  response
}
Run the code above in your browser using DataLab