I hereby claim:
- I am kokkytos on github.
- I am leonidasliakos (https://keybase.io/leonidasliakos) on keybase.
- I have a public key ASCrtRI__vQOsxZd3vEARPq_R3S_d_2Ib0rdgSax4t-ooAo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
# Calculate median per day of week | |
library(lubridate) | |
library(raster) | |
library(magrittr) | |
r <- raster(nrows = 10, ncols = 10, res = 1, | |
xmn = 0, | |
xmx = 10, | |
ymn = 0, |
# Calculate median per day of week. | |
library(lubridate) | |
library(raster) | |
library(magrittr) | |
r <- raster(nrows = 300, ncols = 300, res = 500, | |
xmn = 0, | |
xmx = 150000, | |
ymn = 0, |
# Calculate mean per day of week. | |
library(lubridate) | |
library(raster) | |
library(magrittr) | |
r <- raster( | |
nrows = 300, |
--- stackApply.R 2019-11-27 09:12:08.000000000 +0200 | |
+++ /home/leonidas/Desktop/raster_source/source/R/stackApply.R 2019-11-27 12:50:43.268272464 +0200 | |
@@ -84,9 +84,9 @@ | |
} | |
if (rowcalc) { | |
- v <- lapply(uin, function(i) fun(a[, ind==uin[i], drop=FALSE], na.rm=na.rm)) | |
+ v <- lapply(uin, function(i) fun(a[, ind==i, drop=FALSE], na.rm=na.rm)) | |
} else { | |
- v <- lapply(uin, function(i, ...) apply(a[, ind==uin[i], drop=FALSE], 1, fun, na.rm=na.rm)) |
library(gdalUtils) | |
rGIBS<-function(date=Sys.Date(), EPSGCODE,PRODUCT,projwin, outputdir=file.path(Sys.getenv("HOME"),"gibs_downloads"),...){ | |
dir.create(outputdir, showWarnings = FALSE) | |
setwd(outputdir) | |
#generate xml | |
makeXML <- function(date, EPSGCODE,PRODUCT){ | |
myxml<- sprintf('<GDAL_WMS><Service name="TiledWMS"><ServerUrl>https://gibs.earthdata.nasa.gov/twms/epsg%s/best/twms.cgi?</ServerUrl><TiledGroupName>%s tileset</TiledGroupName><Change key="${time}">%s</Change></Service></GDAL_WMS>',EPSGCODE, PRODUCT, date) | |
tmp <- tempfile(fileext=".xml") | |
fileConn<-file(tmp) |
e2fsck -f /dev/mapper/gisbox--vg-home
resize2fs /dev/mapper/gisbox--vg-home 800G
#! /usr/bin/env bash | |
while IFS="," read -r Filename Title Author Subject | |
do | |
echo "Filename:$Filename" | |
echo "Title: $Title" | |
echo "Author: $Author" | |
echo "Subject: $Subject" | |
echo "" | |
exiftool -Title="$Title" -Author="$Author" -Subject="$Subject" "$Filename" |