Skip to contents

Last Week in Dockets

Source: vignettes/Real_Time.Rmd
Real_Time.Rmd

This page is updated Monday through Friday, hourly between 9AM ET and 5 PM ET. The last update was at 2024-06-28 19:14:42.813489 ET.

last_week_in_dockets = nrcadams::docket_codex |>
  dplyr::pull(DocketNumber) |>
  nrcadams::search_docket(days_back = 7) |>
  dplyr::left_join(nrcadams::docket_codex) |>
  dplyr::filter(!is.na(Project))
#> Searching with the following URL:
#>  https://adams.nrc.gov/wba/services/search/advanced/nrc?q=(mode:sections,sections:(filters:(public-library:!t),properties_search_any:!(!(DocketNumber,eq,'99902088',''),!(DocketNumber,eq,'05000610',''),!(DocketNumber,eq,'05000608',''),!(DocketNumber,eq,'99902115',''),!(DocketNumber,eq,'99902071',''),!(DocketNumber,eq,'07007027',''),!(DocketNumber,eq,'99902117',''),!(DocketNumber,eq,'99902111',''),!(DocketNumber,eq,'99902100',''),!(DocketNumber,eq,'05000613',''),!(DocketNumber,eq,'99902094',''),!(DocketNumber,eq,'99902079',''),!(DocketNumber,eq,'99902076',''),!(DocketNumber,eq,'99900003',''),!(DocketNumber,eq,'99902049',''),!(DocketNumber,eq,'05200048',''),!(DocketNumber,eq,'99902078',''),!(DocketNumber,eq,'05200050',''),!(DocketNumber,eq,'99902052',''),!(DocketNumber,eq,'99902069',''),!(DocketNumber,eq,'05007513',''),!(DocketNumber,eq,'05000611',''),!(DocketNumber,eq,'05000612',''),!(DocketNumber,eq,'99902095',''),!(DocketNumber,eq,'99902101',''),!(DocketNumber,eq,'05200049','')),properties_search_all:!(!(PublishDatePARS,gt,'06/21/2024',''))))&qn=New&tab=advanced-search-pars&z=0 
#> : 2.074 sec elapsed
#> 
#>  This search returned: 60 files.
#> Joining with `by = join_by(DocketNumber)`

build_html_table = function(docket_tbl, LWR) {
  if (LWR) {
    docket_tbl = docket_tbl |> 
      dplyr::filter(!NLWR)
    title = "The Last 7 Days of Posted LWR Licensing Documents."
  } else {
    docket_tbl = docket_tbl |> 
      dplyr::filter(NLWR)
    title = "The Last 7 Days of Posted NLWR Licensing Documents."
  }
    
  docket_tbl |> 
    nrcadams::hyperlink_file_to_name() |>
    dplyr::select(-c(Company, DocketNumber, NLWR)) |>
    DT::datatable(
      caption = title,
      filter = list(position = 'top', clear = TRUE, plain = FALSE),
      escape = FALSE
      )
}

docket_count = last_week_in_dockets |>
  dplyr::count(Project, sort = TRUE)

docket_count |>
  DT::datatable()
library(ggplot2)
library(plotly)
#> 
#> Attaching package: 'plotly'
#> The following object is masked from 'package:ggplot2':
#> 
#>     last_plot
#> The following object is masked from 'package:stats':
#> 
#>     filter
#> The following object is masked from 'package:graphics':
#> 
#>     layout
plt = last_week_in_dockets |>
  dplyr::mutate(
    Project = factor(Project, levels = docket_count |> dplyr::pull(Project))
  ) |> 
  nrcadams::simplify_type() |>
  ggplot() +
    geom_bar(aes(y = Project, fill = Type)) +
    scale_fill_brewer(palette="Set1") +
    theme_bw() +
    labs(
      title = "New Advanced Reactor ADAMS Documents",
      subtitle =  paste("the week before", Sys.Date())
    ) +
    xlab("Document Count")

plt |> ggplotly(tooltip = c("count", "Type"))

The following table summarizes all ADAMS documents for the following dockets:

  • MSRR Pre-Application
  • MSRR Part 50
  • Shine Part 50
  • Shine Recycling Pre-Application
  • Xe-100 Pre-Application
  • TRISO-X Fab. Part 70
  • Long Mott Pre-Application
  • Natrium Pre-Application
  • Natrium Part 50
  • UIUC HTGR Pre-Application
  • eVinci Pre-Application
  • IMSR Pre-Application
  • KP Pre-Application
  • Hermes Part 50
  • Hermes 2 Part 50
  • Hermes 2 Unit 2 Part 50
  • Oklo Reactor Pre-Application
  • Oklo Fuel Cycle Pre-Application
  • Aurora Part 52
last_week_in_dockets |> 
  build_html_table(LWR = FALSE)

The following table summarizes all ADAMS documents for the following dockets:

  • AP300
  • BWRX-300 Pre-Application
  • SMR-300 Pre-Application
  • NuScale 50 MWe Part 52
  • NuScale 77 MWe Pre-Application
  • NuScale 77 MWe Part 52
  • Carbon Free Power Project
last_week_in_dockets |> 
  build_html_table(LWR = TRUE)