47 lines
882 B
R
47 lines
882 B
R
#
|
|
# SortAppr.R
|
|
#
|
|
# version: 1.0
|
|
# author: Giancarlo Panichi
|
|
# date: 2020/10/09
|
|
|
|
|
|
print("Start SortApp.R")
|
|
|
|
args <- commandArgs(trailingOnly = TRUE)
|
|
print(args)
|
|
|
|
print(paste("current dir: ",getwd()),sep="")
|
|
setwd("/code/src")
|
|
print(paste("working dir: ",getwd()),sep="")
|
|
|
|
source("StorageHubCL.R")
|
|
|
|
token<-args[1]
|
|
itemid<-args[2]
|
|
tempfolderitemid<-args[3]
|
|
|
|
filename<-"sortableelements.txt"
|
|
|
|
discoverStorageHub()
|
|
downloadSH(itemid,filename)
|
|
|
|
|
|
print("Read from SH...")
|
|
print("Read data from file...")
|
|
df <- read.table("sortableelements.txt",header = FALSE)
|
|
print("Sort data...")
|
|
df <- df[order(df[,1]),]
|
|
print(df)
|
|
print("Write data to file...")
|
|
write.table(df, "result.txt", append = FALSE, sep = " ", dec = ".",
|
|
row.names = FALSE, col.names = FALSE)
|
|
print("Save on SH...")
|
|
|
|
uploadSH(tempfolderitemid,"result.txt","result.txt","SortApp result")
|
|
|
|
print("SortApp.R done")
|
|
|
|
|
|
|