WeaponShop.Rmd

---
title: "Startraveller Shop Generator"
runtime: shiny
output: html_document
---

```{r,echo=FALSE}
library(shiny)
#source("WeaponsShopHelper.R")

source("https://raw.githubusercontent.com/alastair-JL/StarTraveller/master/WeaponsShopHelper.R")

shinyUI(fluidPage(
  titlePanel("StarTraveller Shop")
  ,fluidRow(
   column(1,
      actionButton("goButton", "Go!")
    ),
    column(2,
       numericInput("n", 
        label = "Random Seed",
        value = sample(1:1000, 1, replace=TRUE) )   
    )
  ,
    column(3,
      actionButton("goButton", "Download Weapons")
    ),    
    column(3,
      actionButton("goButton", "Download Items")
    )
  #,    
#    column(3,
#     selectInput("ShopType",
#    choices = c("General Weapons" = 1, "Guns Shop" = 2, "Blades shop" = 3), 
#    selected = 1, label="Shop Type")
#    )
  )
  ,hr()
  ,fluidRow(column(10,    
      renderDataTable({
             input$goButton
             isolate({
                MakeWeaponShop(GeneralWeps,numItems=20,output=FALSE,seed=input$n,Filters=NULL)
            })
      }),
          renderDataTable({
             input$goButton
             isolate({
                Filter=list()
                Filter$botPrice<-min(2.5^(input$priceBounds[1]),1500)      
                Filter$topPrice<-max(2.5^(input$priceBounds[2]),300, Filter$botPrice*5)              
                CoupledGrammerIterationLoop("~RandomItem~",TrinketGrammer,seed=input$n)
            })
      })
  )) ##NOTE: here is end of fluid row
)#End fluid page
)#End shiny UI

```