@Moderator_2
url <- "https://apiconnect.angelbroking.com/rest/auth/angelbroking/user/v1/loginByPassword"

json_body<-toJSON(list(
'clientcode'="xxxx",
'password'='xxxx',
'totp'='372426'
))

response<-POST(url ="https://apiconnect.angelbroking.com/rest/auth/angelbroking/user/v1/loginByPassword",
config=list(
add_headers(
'Content-Type'= 'application/json',
'Accept'= 'application/json',
'X-UserType'= 'USER',
'X-SourceID'= 'WEB',
'X-ClientLocalIP'= 'xxxxx',
'X-ClientPublicIP'= 'xxxx',
'X-MACAddress'= 'xxxx',
'X-PrivateKey'= 'xxxx'
)
),body = json_body,
encode = 'raw')