# NOT RUN {
gr <- get_graph_login()
app <- gr$create_app("MyNewApp")
# password reset
app$update_password()
# set a redirect URI
app$update(publicClient=list(redirectUris=I("http://localhost:1410")))
# add API permission (access Azure Storage as user)
app$update(requiredResourceAccess=list(
list(
resourceAppId="e406a681-f3d4-42a8-90b6-c2b029497af1",
resourceAccess=list(
list(
id="03e0da56-190b-40ad-a80c-ea378c433f7f",
type="Scope"
)
)
)
))
# change the app name
app$update(displayName="MyRenamedApp")
# }
Run the code above in your browser using DataCamp Workspace