PU
Size: a a a
PU
ОЛ
AS
AS
A
ОЛ
PD
df[, 15:30] = apply(df[, 15:30], 2, as.numeric)
ОЛ
ОЛ
V
PU
ОЛ
DD
DD
files <- list.files(path="D:/work/Names_cpp/dataset/binarization_test/input", pattern="*.png", full.names=TRUE, recursive=FALSE)
lapply(files, function(x) {
num=num+1
img <- image_read(x)
img <- function(img)
path_to_out = sprintf('D:/work/Names_cpp/dataset/binarization_test/out/filename%s.png',num)
print(path_to_out)
//нужно сохранить картинку здесь
})
DD
АК
png(filename="your/file/location/name.png")
АК
DD
ГД
files <- list.files(path="D:/work/Names_cpp/dataset/binarization_test/input", pattern="*.png", full.names=TRUE, recursive=FALSE)
lapply(files, function(x) {
num=num+1
img <- image_read(x)
img <- function(img)
path_to_out = sprintf('D:/work/Names_cpp/dataset/binarization_test/out/filename%s.png',num)
print(path_to_out)
//нужно сохранить картинку здесь
})
S