내장된 Admin API를 사용하여 R에서 로컬 Ghost CMS 인스턴스에 연결하려고 합니다. 다양한 언어로 연결하는 방법에 대한 좋은 문서(https://ghost.org/docs/admin-api/#token-authentication)가 있지만 안타깝게도 R에 대한 문서는 없습니다. 다음 코드를 작성했지만 불행하게도 테스트 항목을 생성하려고 할 때 401 오류가 발생했습니다. 어떤 도움이라도 대단히 감사하겠습니다.

R 코드:

api_admin_key <- "xxxxxx:yyyyyyyyyyyyyyy" api_admin_key <- unlist(strsplit(x = api_admin_key, 분할 = ":")) names(api_admin_key) <- c("id", "secret") # 헤더와 페이로드 준비 iat <- as.integer(Sys.time()) 헤더 <- list(alg = 'HS256', typ = 'JWT', kid = api_admin_key[["id"]]) # 토큰 생성(디코딩 비밀 포함) 페이로드 <- 호세::jwt_claim(iat = iat, 특급 = iat + 5 * 60, aud = '/관리자/') 토큰 <- 호세::jwt_encode_hmac( 클레임 = 페이로드, 비밀 = charToRaw(api_admin_key[["secret"]]), 크기 = 256, 헤더 = 헤더 ) # 게시물 작성을 위해 인증된 요청을 합니다. URL <- 'http://localhost:2368/ghost/api/admin/posts/' 헤더 <- c('Authorization' = Paste("Ghost", token)) body <- list(게시물 = 목록( "제목" = '안녕하세요 세계', "html" = "
내 게시물 콘텐츠. 작업 진행 중...
", "상태" = "게시됨" ) ) httr::POST(URL, 몸=몸, 인코딩 = "json", httr::add_headers(.headers = 헤더))