library(shiny)
library(shinythemes)
library(shinyjs)
addResourcePath("images", "images")
addResourcePath("cvs", "cvs")
addResourcePath("css", "css")
addResourcePath("proposal", "proposal")
ui <- fluidPage(theme = shinytheme("flatly"),
includeCSS("css/additional.css"),
useShinyjs(),
titlePanel("AWWI Proposal"),
sidebarLayout(
sidebarPanel(
img(src = "images/awwi-logo.png", width = 100),
hr(),
p(HTML("The American Wind Wildlife Institute is requesting assistance with the creation of a set of R scripts that will generate summary statistics and publication quality graphics of post-construction wildlife monitoring data contained in the AWWIC. Their solicitation explicitly states that \"parties with R Markdown and R Shiny\" experience \"may be given preference\". To highlight our capabilities, diligence, creativity and enthusiasm about the project, we've created this Shiny app as our formal fulfillment of the Request for Interest and Qualifications.")),
hr(),
tags$a("View this proposal in RMarkdown", target = "_blank", href = "proposal/proposal.pdf")
# br(), br(),
# actionLink("code", "View the code for this application")
),
mainPanel(
tabsetPanel(
tabPanel("About Us",
br(),
p(HTML("The <a target = '_blank', href='https://omnianalytics.io'>Omni Analytics Group</a> team consists of Dr. Lawrence Mosley and Dr. Eric Hare, data scientists with backgrounds in Industrial Engineering, Statistics and Computer Science. Below you can find their CVs and Linkedin profiles with public letters of recommendations.")),
br(),br(),
fluidRow(
column(3),
column(4,
HTML("Lawrence Mosley, PhD"),
br(),
tags$a("CV", href = "cvs/mosley.pdf", target = "_blank"),
br(),
tags$a("LinkedIn", target = "_blank", href = "https://www.linkedin.com/in/dr-lawrence-mosley/")
),
column(4,
HTML("Eric Hare, PhD"),
br(),
tags$a("CV", href = "cvs/hare.pdf", target = "_blank"),
br(),
tags$a("LinkedIn", target = "_blank", href = "https://www.linkedin.com/in/eric-hare-15280938/")
),
column(1)
)
),
tabPanel("Relevant Work",
br(),
p(HTML("Omni Analytics Group is a boutique data science consulting company that specializes in statistical analysis and algorithm design for enterprises. Our experience crosses multiple domains and verticals. Of the work relevant to the AWWI, we'd like to point your attention to the following projects (with external links where available):")),
br(),br(),
tags$ul(tags$li(HTML("We've designed and deployed multiple shiny applications for the Iowa Soybean Association, helping them track soybean grown and optimize crop yield. We've even provided training and <a target='_blank' href='https://twitter.com/OmniAnalytics/status/999440636427325442'>knowledge transfer sessions</a> to support project hand off.")),
tags$li(HTML("For a non-profit company in the philanthropy industry, we created a workflow that extracted information from multiple data sources, processed the data, calculated statistics and generated the outputs into an automated report.")),
tags$li(HTML("For our corporate clients, we regularly produce automated R scripts that perform complex machine learning routines. These scripts are well documented, much like the code hosted on <a target='_blank' href='https://github.com/Omni-Analytics-Group/ocrdrawing'>our GitHub</a>.")),
tags$li(HTML("Our <a target='_blank' href='https://labs.omnianalytics.io/'>Shiny 'Laboratory'</a> hosts multiple applications with various statistical functionalities.")))
),
tabPanel("Cost Estimate",
br(),
p(HTML("For 100 hours earmarked between the October 1st - December 31st \"period of performance\", our hourly rate will be $200/hr. Given that the market rate typically contracted into by the federal government for companies with our profile is $220/hr, we've discounted ours slightly to be more cost competitive. (<a target='_blank' href='https://calc.gsa.gov/?education=PHD&site=contractor&business_size=s&schedule=Consolidated&min_experience=7&max_experience=15'>Source</a>):<br><br>")),
img(src = "images/hourly.png", width = 600),
br(),br(),
p(HTML("The above quote is fully loaded, including all direct costs. We request that indirect costs for travel and associated accommodations be handled by AWWI through reimbursement should the need for on-site collaboration arise."))
)
)
)
)
)
server <- function(input, output) {
shinyjs::toggle("showcase-well")
observeEvent(input$code, {
shinyjs::toggle("showcase-well")
})
}
shinyApp(ui = ui, server = server, options = list(display.mode = "showcase"))