magixsource / devops-tools

some draft program help devops in my work.

• 👋 Hi, I’m LIN (@magixsource)
• 👀 I’m interested in Cycling and E-sport
• 🌱 I’m currently learning Dapr、DevOps and OpenFunction
• 👀 I spent over 6 years focus on Enterprise Digital-transformation by Mid-Platform architecture in China
• 💞️ I’m looking to collaborate on DevOps and CNCF :)
• 📫 You can send message to my email: [email protected]

devops-tools's Issues

test

#scan
library(readr)
path <- "~/桌面/r-sandbox/csv/"

loadCsvData <- function(path){
setwd(path)
csvDatas <- list()
files <- list.files(path = path,pattern = "*.csv")
for(i in 1:length(files)){
csvDatas[[i]] <- read_csv(files[i])
}
return(csvDatas)
}

datas <- loadCsvData(path)

getTitles <- function(datas){
titles <- list()
for(i in 2:(nrow(datas[[1]]))) titles[[i-1]] <- datas[[1]][[1]][[i]]
return(titles)
}
getUrls <- function(datas){
urls <-list()
for(i in 2:(nrow(datas[[1]]))) urls[[i-1]] <- datas[[1]][[10]][[i]]
return(urls)
}

getRts <- function(datas){
rts <- list()
for(i in 2:(nrow(datas[[1]]))){
rs <- list()
for(j in 1:length(datas)){
rs[[j]] <- list(rt <- datas[[j]][[9]][[i]],ts <- substr(datas[[j]][[2]][[i]],1,10))
}
rts[[i-1]] <- rs

}
return(rts)
}

displayDatas <- function(datas){
titles <- getTitles(datas)
urls <- getUrls(datas)
rts <- getRts(datas)

rows <- nrow(datas[[1]])

display

for(i in 1:length(rts)){
#for(i in 1){

x <- c()
y <- c()
for(j in 1:length(rts[[i]])){
  x[[j]] <- as.Date(rts[[i]][[j]][[2]],"%Y-%m-%d") 
  y[[j]] <- as.numeric(rts[[i]][[j]][[1]]) 
}


# invoke plot
plot(x,y,main = titles[[i]],type = "l",xlab = "压测日期",ylab = "响应时间(ms)",xaxt="n")
#axis.Date(1,at=x,origin="1970-01-01")
#axis.POSIXct(1,at=x,format="%Y-%m-%d")

}
return(rts)
}

displayDatas(datas)

#display result

#plot(dateSets,rtSets,main = pTitle)