update package name

nmfs-fish-tools · Oct 13, 2023 · 8f8457a · 8f8457a
1 parent b966298
commit 8f8457a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/inst/Shiny/server.r b/inst/Shiny/server.r
@@ -1,7 +1,7 @@
 # Define server logic required to draw a histogram ----
 server <- function(input, output, session) {
   require(jsonlite)
-  library(stockassessmentdictionary)
+  library(fishdictionary)
   require(ggplot2)
   require(shiny)
 
@@ -10,7 +10,7 @@ server <- function(input, output, session) {
     unlink(tmp) })
 
   rd_database <- reactive({
-    tools::Rd_db(package = "stockassessmentdictionary")
+    tools::Rd_db(package = "fishdictionary")
   })
 
   output$choose_topic <- renderUI({
@@ -22,11 +22,11 @@ server <- function(input, output, session) {
     rdfile <- paste0(input$Term, ".Rd")
     req(rdfile %in% names(rd_database()))
     tools::Rd2HTML(rd_database()[[rdfile]], tmp,
-    package = "stockassessmentdictionary")
+    package = "fishdictionary")
     htmltools::includeHTML(tmp)})
 
   output$foodweb <- renderPlot({
-    mvbutils::foodweb(where = "package:stockassessmentdictionary",
+    mvbutils::foodweb(where = "package:fishdictionary",
      prune = input$Term)
   })
 }
diff --git a/inst/Shiny/ui.r b/inst/Shiny/ui.r
@@ -1,5 +1,5 @@
 require(shiny)
-require(stockassessmentdictionary)
+require(fishdictionary)
 ui <- fluidPage(
   # includeCSS("extra.css"),
   includeCSS("nmfs-styles.css"),