library(magrittr)
library(tidyr)
library(dplyr)
library(readr)
library(stringr)
library(lubridate)
library(devtools)
rm(list = ls())
cumshewa_wind <- read_csv('data-raw/wind-cumshewa-1216.csv')
laskeek_fetch <- read_csv('data-raw/laskeekbay-fetch-5.csv')
cumshewa_wind$DateTime %<>% force_tz(tzone = "Etc/GMT+8")
laskeek_fetch %<>% select_(~-X1)
colnames(laskeek_fetch) <- c('Easting', 'Northing', 'bearing5', 'bearing10', 'bearing15', 'bearing20','bearing25','bearing30','bearing35','bearing40','bearing45',
'bearing50','bearing55','bearing60','bearing65','bearing70','bearing75','bearing80','bearing85','bearing90','bearing95',
'bearing100','bearing105','bearing110','bearing115','bearing120','bearing125','bearing130','bearing135','bearing140','bearing145',
'bearing150','bearing155','bearing160','bearing165','bearing170','bearing175','bearing180','bearing185','bearing190','bearing195',
'bearing200','bearing205','bearing210','bearing215','bearing220','bearing225','bearing230','bearing235','bearing240','bearing245',
'bearing250','bearing255','bearing260','bearing265','bearing270','bearing275','bearing280','bearing285','bearing290','bearing295',
'bearing300','bearing305','bearing310','bearing315','bearing320','bearing325','bearing330','bearing335','bearing340','bearing345',
'bearing350','bearing355', 'bearing360')
laskeek_fetch %<>% gather(Bearing, Fetch, -Easting, -Northing) %>%
mutate(Easting = as.numeric(Easting),
Northing = as.numeric(Northing),
Bearing = as.numeric(str_replace(Bearing, "bearing", ""))) %>%
filter(!is.na(Fetch))
cumshewa_wind %<>% mutate(Direction = as.numeric(Direction),
Speed = as.numeric(Speed)) %>%
filter(!is.na(Direction), !is.na(Speed))
use_data(cumshewa_wind, overwrite = TRUE)
use_data(laskeek_fetch, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.