R/put_project.R

In togglr: 'Toggl.com' Api for 'Rstudio'

#' @title toggl_create_project
#' @param project_name project name
#'
#' @param workspace_id workspace_id
#' @param client client name
#' @param api_token the toggl api token#'
#' @param private whether project is accessible for only project users or for all workspace users (boolean, default false)
#' @param color id of the color selected for the project
#' @param active boolean set project as active, TRUE by default
#'
#' @description  create a project
#' @importFrom httr POST authenticate verbose
#' @importFrom jsonlite toJSON
#' @examples 
#' \dontrun{
#' toggl_create_project()
#' }
#' @export
toggl_create_project <- function(
  project_name=get_context_project(),
  api_token=get_toggl_api_token(),
  workspace_id=get_workspace_id(api_token),
  client = NULL,
  private= FALSE, 
  color = NULL,active=TRUE
){
  if (is.null(api_token)){
    stop("you have to set your api token using set_toggl_api_token('XXXXXXXX')")
    
  }
  
  if (!is.null(id<-suppressWarnings(get_project_id(project_name = project_name)))){
    warning("the project " ,project_name," already exist")
    
    
  }else{
    
    # gestion du client
    
    if (!is.null(client)) {
      create_client(name = client,
                    api_token = api_token,
                    workspace_id = workspace_id)
      try(client_id <-
            client_name_to_id(name = client, api_token = api_token))
    } else{
      client_id <- NULL
    }
    

    POST("https://api.track.toggl.com/api/v8/projects",
         verbose(),
         authenticate(api_token,"api_token"),
         encode="json",
         body=toJSON(list(project = list(name = project_name , 
                                         cid = client_id,
                                         is_private = private, 
                                         color = color,active = active
         )
         ),auto_unbox = TRUE)
    )%>%  content() %>% .$data %>% .$id -> id

  }
  
  # content %>% .$data %>% .$id -> id
  id
  
}