dickoa

require(ncdf4)


loadMesonetData <- function(filename, stationFilename = "station_info.csv") {
    data <- read.csv(file.path(data_path, filename))
    station_data <- read.csv(file.path(data_path, stationFilename))
    list(data = data[,-1], dates = data[,1], station_data = station_data)
}

dickoa

### Download file
url <- "http://data.giss.nasa.gov/gistemp/tabledata_v3/GLB.Ts+dSST.txt"
tmp <- tempfile()
download.file(url, destfile = tmp, method = "curl")

### Read the file and select colnames
dat <- readLines(tmp)
col_names <- unique(grep("^Year", dat, value = TRUE)) ## select colnames
col_names <- strsplit(col_names, "\\s+")[[1]]

dickoa

library(foreign)
set.seed(1)
df <- as.data.frame(matrix(rnorm(1e8), ncol = 10))

write.csv(df, "/tmp/test.csv", row.names = FALSE)
write.dta(df, "/tmp/test.dta")

dickoa

library(dplyr)
library(RPostgres)

mydb <- src_postgres(dbname = "yourdb"
                     user = "user",
                     password = "password",
                     host = "localhost",
                     port = 5432L)

dickoa

Keybase proof

I hereby claim:

• I am dickoa on github.
• I am dickoa (https://keybase.io/dickoa) on keybase.
• I have a public key whose fingerprint is 188B 5A3A C523 96A3 1BED AAA6 D4F1 DBD4 6340 C474

To claim this, I am signing this object:

dickoa

{
  "name": "hrp",
  "title": "Humanitarian Responses Plan",
  "type": "cookbook",
  "columns": [
    "#targeted",
    "#region",
    "#country",
    "#adm1"
  ],

dickoa

{
    "name": "hno_sector",
    "title": "Humanitarian Needs Overview",
    "type": "cookbook",
    "columns": [
	"#inneed",
	"#region",
	"#country",
	"#adm1",
	"#sector"

dickoa

{
    "name": "hno_sector_drc",
    "title": "Humanitarian Needs Overview for DRC",
    "type": "cookbook",
    "columns": [
	"#inneed",
	"#sector"
    ],
    "recipes": [
	{

dickoa

{
  "name": "hno_ukr",
  "title": "Ukraine: Humanitarian Needs Overview",
  "type": "cookbook",
  "columns": [
    "#inneed",
    "#affected",
    "#loc",
    "#country"
  ],

dickoa