inst/app/ui/ui_pick_economy_document.R

In aljrico/hs_balancedata: What the Package Does (One Line, Title Case)

output$ui_pick_economy_document <- renderUI({
  economy_documents_list <- hs.balancedata::find_economy_documents(game_folder = input$combobox.game_location)
  choices_economy <- NA
  if (length(economy_documents_list) > 0) choices_economy <- economy_documents_list

  selectInput("combobox.economy_file", "Economy Document", choices = choices_economy)
})

output$ui_pick_economy_document_stories <- renderUI({
  economy_documents_list <- hs.balancedata::find_economy_documents(game_folder = input$combobox.game_location)
  choices_economy <- NA
  if (length(economy_documents_list) > 0) choices_economy <- economy_documents_list
  
  selectInput("combobox.stories.economy_file", "Economy Document", choices = choices_economy)
})