组件:

自定义组件：

NgplotApiKey 更换 NgplotApiKey用于身份认证，请妥善保管

import requests
import json

def NgplotApiFun(ngplotPostData,svgOutName):
    response = requests.post('https://www.bioinforw.com/ldm/ngplotApiSim/', data={'data':json.dumps(ngplotPostData)})
    if response.status_code == 200:
        response_json = response.json()
        if response_json['code'] == 200:
            with open(svgOutName+'.svg', 'w') as fw:
                fw.write(response_json['svg'])
            print('Success, the result file is '+ svgOutName + '.svg')
        else:
            print(response_json['msg'])

##Test:
datas = {}


ngplotPostData = {
    'account': '',  #
    'ngplotApiKey': '' , #your ngplotApiKey
    'template' : '', # template id
    'data' : datas,
    'arg' : { 
        ##params 
    }
}

NgplotApiFun(ngplotPostData,'test')
                    

library(httr)
library(jsonlite)

NgplotApiFun <- function(ngplotPostData, svgOutName){
    json_data <- toJSON(ngplotPostData, auto_unbox = TRUE) 
    response <- POST(
        url = "https://www.bioinforw.com/ldm/ngplotApiSim/",
        body = list(data = json_data),
        encode = "form"
    )
    if(status_code(response) == 200){
        response_json <- fromJSON(content(response, "text"))
        if(response_json$code == 200){
            write(response_json$svg, file = paste0(svgOutName, ".svg"))  
            cat('Success, the result file is ', paste0(svgOutName , '.svg'))
        }else{
            cat(response_json$msg, "\n")  
        }
    }else{
        cat("HTTP ERROR:", status_code(response), "\n") 
    }
}


##Test:
datas <- list()

ngplotPostData <- list(
  account = '',
  ngplotApiKey = '',
  template = '',
  data = datas,  
  arg = list(
    # params 
  )
)
NgplotApiFun(ngplotPostData, 'test')