Server:
function(input,output,session){
observeEvent(input$upload, {
require(input$file)
file <- file.copy(from = input$file$datapath,
to = paste0(tempdir(),input$pubname,
" - ",
input$pubmonth,
" ",
input$pubyear,
".pdf"))
if(!is.null(input$file)){
readRenviron("~/rstudio/connectapi/.Renviron.alt")
client <- connect(host = "server",
api_key = "api key")
bnd <- bundle_static(input$file$datapath)
content_1 <- deploy(client,bnd,title = paste0(input$pubname, " - ", input$pubmonth, " ", input$pubyear),access_type = "logged_in")
all_users <- get_users(client,limit = 200)
one_user <- all_users %>% filter(username == input$username)
one_user_guid <- one_user %>% pull(guid)
content_1 %>%
acl_add_collaborator(
one_user_guid
)
myapp <- set_content_tag_tree(content_1,"tag_tree",input$unitname, input$pubname, input$pubyear, input$pubmonth)
#myapp <- deploy(client, bnd, name = tempdir(),input$pubname," - ",input$pubdate,title = paste0(input$pubname, " - ", input$pubdate))
#acl_add_viewer(myapp,"Anyone")
poll_task(myapp)
browse_dashboard(myapp)
}
}
)
}
This is an add that I built that allows my team members to upload there documents to RStudio Connect, and they they are added as collaborators of the document that they upload.
My question is around the type of functions these collaborators have access to on RStudio Connect.
Why are they not able to delete a document that they uploaded? But they are a collaborator of the document.