In HoldenJe/gfsR: Compilation of R functions for use with the GFS FN data

knitr::opts_chunk$set(echo = FALSE)
library(gfsR)
library(kableExtra)
library(dplyr)

Import DATA.ZIP

print(params$datazip)

fndat <- import_fn_index_net(params$datazip)

FN011

fndat$FN011 |> 
  select(PRJ_CD, PRJ_NM, PRJ_LDR, FOF_NM, WBY_NM, PRJ_DATE0, PRJ_DATE1) |> 
  kbl() |> 
  kable_styling(position="left", full_width = F)

FN121

if("AREA" %in% fndat$FN121){
  fndat$FN121 |> 
    group_by(AREA) |> 
    summarize(N = n()) |> 
    kbl() |> 
    kable_styling(position="left", full_width = F)
}

library(leaflet)
leaflet(fndat$FN121) |> addTiles() |> addCircles(lat =~DD_LAT0, lng = ~DD_LON0)

FN125

fndat$FN125 |> 
  group_by(SPC) |> 
  summarize(N = n()) |> 
  kbl()

HoldenJe/gfsR documentation built on Nov. 19, 2024, 5:06 p.m.