R/add_stock_modal.R

In kristian-bak/shinyStocks: An Amazing Shiny App

#' Add stock modal
#' @param ns namespace
add_stock_modal <- function(ns) {
  
  fluidPage(
    shinyjs::useShinyjs(),
    fluidRow(
      column(8, 
             selectizeInput(
               inputId = ns("type_stock"), 
               label = add_info_circle(
                 label = "Stock name", 
                 placement = "right", 
                 content = "You can use whatever name you prefer. All data and statistics will be made using the ticker code"
               ),
               choices = c("", df_stocks$Stock),
               options = list(create = TRUE)
             )
      ),
      column(4, 
             selectizeInput(
               inputId = ns("type_ticker"), 
               label = "Ticker", 
               choices = c("", df_stocks$Ticker),
               options = list(create = TRUE)
             )
      )
    ),
    fluidRow(
      column(4, 
             dateInput(
               inputId = ns("date_first_buy"), 
               label = "First buy day", 
               value = Sys.Date() - 5
             )
      ),
      column(4, 
             numericInput(
               inputId = ns("num_buy_price"), 
               label = "Average buy price", 
               value = NA, 
               min = 0, 
               max = Inf
             )
      ), 
      column(3, 
             numericInput(
               inputId = ns("num_n_stocks"), 
               label = add_info_circle(
                 label = "Quantity", 
                 placement = "right", 
                 content = "Number of stocks is used to calculate marked value today"
               ),
               value = NA, 
               min = 1, 
               max = Inf, 
               step = 1)
             )
    ),
    fluidRow(
      column(4, 
             shinyWidgets::pickerInput(
               inputId = ns("select_etf"), 
               label = "ETF", 
               choices = c("", "Yes", "No")
             )
      ),
      column(4, 
             shinyWidgets::pickerInput(
               inputId = ns("select_country"), 
               label = add_info_circle(
                 label = "Country", 
                 placement = "right", 
                 content = "Country information is only relevant for stocks. You can ignore this field for ETFs"
               ),
               choices = c("", "USA", "Germany", "Denmark", "Sweden")
             )
      ),
      column(4, 
             shinyWidgets::pickerInput(
               inputId = ns("select_currency"), 
               label = add_info_circle(
                 label = "Currency", 
                 placement = "right", 
                 content = "Currency used to buy the stock"
               ), 
               choices = c("", "USD", "EUR", "DKK", "SEK")
             )
      )
    ),
    fluidRow(
      column(4, 
             shinyWidgets::pickerInput(
               inputId = ns("select_sector"), 
               label = add_info_circle(
                 label = "Sector", 
                 placement = "right", 
                 content = "Sector is only relevant for stocks. You can ignore this field for ETFs"
               ),
               choices = c("", "Energy", "Materials", "Industrials", 
                           "Utilities", "Health Care", "Financials", 
                           "Consumer Discretionary", "Consumer Staples", 
                           "Information Technology", "Communication Services", 
                           "Real Estate")
             )
      ),
      column(4, 
             selectInput(
               inputId = ns("select_type"), 
               label = "Type", 
               choices = c("Growth", "Value", "Blend")
             )
      ),
      column(4, 
             selectInput(
               inputId = ns("select_cap"), 
               label = "Market cap", 
               choices = c("Large", "Mid", "Small")
             )
      )
    ),
    fluidRow(
      column(4, 
             shinyWidgets::pickerInput(
               inputId = ns("select_strategy"), 
               label = "Investment strategy", 
               choices = c("Buy and hold", "Position trader")
             )
      ),
      column(4, 
             numericInput(
               inputId = ns("num_stop_loss"), 
               label = "Stop loss", 
               value = NA, 
               min = 0, 
               max = Inf, 
               step = 0.5
             )),
      column(4, 
             numericInput(
               inputId = ns("num_take_profit"), 
               label = "Take profit", 
               value = NA, 
               min = 0, 
               max = Inf, 
               step = 0.5
             )
      )
    ),
    fluidRow(
      column(4, 
             selectInput(
               inputId = ns("select_broker"), 
               label = "Broker", 
               choices = c("", "Danske Bank", "Saxo Bank", "Nordnet", "Other")
             )
      )
    ),
    fluidRow(
      actionButton(
        inputId = ns("go_submit"), 
        label = "Submit"
      )
    )
  )
  
}