R/choices.R

In Programming-The-Next-Step-2021/Email_Agent_Template: Email Template

library(shiny)

#default choices for the opening line
default_choices <- c("first_response", "reply","phone", "update")

#default topics for the main body of the email
default_topics <- c("damage","productcomplaint","return","where is my parcel")

ui <- fluidPage(
  
  #implementing bootstrap css dark mode
  theme = bslib::bs_theme(bootswatch = "darkly"),
  
  #adding custom css via tags$head 
  tags$head(
    
    tags$style(HTML("
      @import url('https://fonts.googleapis.com/css2?family=Yusei+Magic&display=swap');
      /* Change font of header text */
      h2 {
        font-family: 'Yusei Magic', sans-serif;
      }")),
    
    tags$style(HTML('#add_btn{font-size:small}')),
    tags$style(HTML('#add_btn2{font-size:small}')),
    tags$style(HTML('#add_btn{background-color:#B8B8AA}')),
    tags$style(HTML('#add_btn2{background-color:#B8B8AA}')),
    tags$style(HTML('#load_inputs{font-size:small}')),
    tags$style(HTML('#save_inputs{font-size:small}')),
    tags$style(HTML('#load_inputs{background-color:#595D88}')),
    tags$style(HTML('#save_inputs{background-color:#DB7543}')),
    tags$style(HTML('#load_inputs2{font-size:small}')),
    tags$style(HTML('#save_inputs2{font-size:small}')),
    tags$style(HTML('#load_inputs2{background-color:#595D88}')),
    tags$style(HTML('#save_inputs2{background-color:#DB7543}'))
  ),
  
  #Application title
  titlePanel("Custom Email Templates"),
  
  
  sidebarLayout(
    
    sidebarPanel(
      
      #setting the input location for the excel file 
      tags$b(textInput(inputId = 'inputsLocation', label = 'Inputs Location', value = "~/UVA/programming next step/Email_Agent_Template/R/user_inputs1.csv")),
      
      tags$p(""),
      
      #input salutation
      textInput(
        "Salutation",
        "Salutation",
        "Dear...,"
      ),
      
      
      #dynamic choices for the opening line with 4 default options
      selectInput("selector",
                  "Choose opening line",
                  choices = default_choices,
                  selected = NULL,
                  multiple = FALSE),
      
      ##user can add another choice if needed
      textInput(
        "freetext",
        "Enter new choice if not present"
      ),
      
      ##button to add the extra choice
      actionButton("add_btn", "Add to choices"),
      
      tags$p(""),
      
      #dynamic input for main body with four default topics
      selectInput("selector2",
                  "Choose topic",
                  choices = default_topics,
                  selected = NULL,
                  multiple = FALSE),
      
      
      ##user can add another choice if needed
      textInput(
        "freetext2",
        "Enter new choice if not present"
      ),
      
      ##to add the extra choice
      actionButton("add_btn2", "Add to choices"),
      
      tags$p(""),
      
      ##user can select days of the week
      selectInput("Day","Choose day of week:",
                  c('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday')),
      
      ##user can selec time of the day 
      selectInput("Time","Choose time of day:",
                  c("morning","afternoon","evening")),
      
      ##dynamic greeting with default value - user can pick another value and save it for next time
      textInput("Greeting","Closing line:","kind regards,"),
      
      ##dynamic input field, user can save and load values 
      textInput("Name","Insert your Name:"),
      
      ## action buttons to save and load inputs
      actionButton('load_inputs', 'Load inputs'),
      actionButton('save_inputs', 'Save inputs'),
      
      
    ),
    
    mainPanel(
      tabsetPanel(type ="tabs",
                  
                  #user guide in pdf format
                  tabPanel("User Guide",
                           
                           tags$iframe(style="height:450px; width:100%; scrolling=yes",
                                       src="https://www.dropbox.com/s/lj21r2i8xwb0poz/EMAIL%20TEMPLATE%20USER%20GUIDE.pdf?raw=1")),
                  
                  #content editor: user can customize content of opening line and topic
                  tabPanel("Content Editor",
                           
                           tags$p(""),
                           
                           #input location for content 
                           textInput(inputId = 'inputsLocation2', label = 'Inputs Location2', value = "~/UVA/programming next step/Email_Agent_Template/R/type.csv"),
                           
                           
                           #conditional panels that are visible depending on opening line and topic picked
                           conditionalPanel(
                             condition = "input.selector == 'first_response'",
                             
                             textInput('first_response','first')),
                           conditionalPanel(
                             condition = "input.selector == 'reply'",
                             textInput('reply','reply')),
                           conditionalPanel(
                             condition = "input.selector == 'phone'",
                             textInput('phone','phone')),
                           conditionalPanel(
                             condition = "input.selector == 'update'",
                             textInput('update','update')),
                           conditionalPanel(
                             condition = "input.selector2 == 'damage'",
                             
                             textAreaInput('damage','damage')),
                           conditionalPanel(
                             condition = "input.selector2 == 'productcomplaint'",
                             
                             textAreaInput('productcomplaint','productcomplaint')),
                           conditionalPanel(
                             condition = "input.selector2 == 'return'",
                             
                             textAreaInput('return','return')),
                           conditionalPanel(
                             condition = "input.selector2 == 'where is my parcel'",
                             
                             textAreaInput('parcel','where is my parcel')),
                           
                           #action button to save and load content
                           actionButton('load_inputs2', 'Load inputs2'),
                           actionButton('save_inputs2', 'Save inputs2'),
                           
                  ),
                  
                  #template of email 
                  tabPanel("Template",
                           
                           tags$p(textOutput("Salutation")),
                           tags$p(textOutput("summary")),
                           tags$p(textOutput("topsummary")),
                           tags$p(textOutput("ending")),
                           tags$p(textOutput("Greeting")),
                           tags$p(textOutput("Name")),
                           tags$p(""),
                           tags$p(""),
                           tags$p("")
                           
                  )
      )
      
    ),
  )
)

#server code
server <- function(input, output, session){
  
  
  #input of salutation is displayed in the template tab
  output$Salutation <- renderText({
    input$Salutation
  }) 
  
  #if user has clicked the add_btn button, the input is added to the default_choices
  observeEvent(input$add_btn, {
    if (input$freetext == "") {
      showModal(
        modalDialog(
          title = "No new label entered!",
          "Please enter a label in the free text field",
          easyClose = FALSE
        )
      )
      return(NULL)
    } else {
      # add the free text file to the default choices
      updateSelectInput( session,
                         inputId = "selector",
                         "Choose opening line",
                         choices = c(default_choices,input$freetext),
                         selected = NULL
      )
    }
  })
  
  
  #if user has clicked the add_btn button, the input is added to the default_topics
  observeEvent(input$add_btn2, {
    if (input$freetext2 == "") {
      showModal(
        modalDialog(
          title = "No new label entered!",
          "Please enter a label in the free text field",
          easyClose = FALSE
        )
      )
      return(NULL)
    } else {
      # add the free text file to the default topics
      updateSelectInput( session,
                         inputId = "selector2",
                         "Choose topic",
                         choices = c(default_topics,input$freetext2),
                         selected = NULL
      )
    }
  })
  
  #the template will display the opening line of the email 
  #depending on which opening line was picked in the sidepanel,
  #and edited in the content editor
  output$summary <- renderText({
    if(input$selector=="reply"){
      input$reply
    }else if(input$selector=="first_response"){
      input$first_response
    }else if(input$selector=="phone"){
      input$phone
    }else if(input$selector=="update"){
      input$update
    }
  })
  
  #the template will display the main body of the email 
  #depending on which topic was picked in the sidepanel,
  #and edited in the content editor
  output$topsummary <- renderText({
    if(input$selector2=="damage"){
      input$damage
    }
    else if(input$selector2=="productcomplaint"){
      input$productcomplaint
    }
    else if(input$selector2=="return"){
      input$return
    }
    else if(input$selector2=="where is my parcel"){
      input$parcel
    }
  })
  
  #the closing line will be displayed in template. It dynamically changes 
  #depending on which day and time was picked by the user in the sidepanel.
  output$ending<-renderText(paste0(
    "I wish you a beautiful"," ",{input$Day}," ",{input$Time},"!"))
  
  #the sign-off depends on the user input of the sidepanel. If the user did not change
  #the default option, the template will read 'kind regards'.
  output$Greeting <- renderText({
    input$Greeting
  })
  
  #the name is only added to the end of the template if the user filled in his/her name
  #in the sidepanel inputtext field 'Name'
  output$Name <- renderText({
    input$Name
  })
  
  #if the user clicks the load inputs button, the input from the excel file is imported
  observeEvent(input$load_inputs, {
    # Load inputs
    
    uploaded_inputs <- read.csv(input$inputsLocation)
    # Update each input
    for(i in 1:nrow(uploaded_inputs)){
      updateTextInput(session,
                      inputId = uploaded_inputs$inputId[i],
                      value = uploaded_inputs$value[i])
      
    }
    
  })
  
  #if the user clickes the load input button in the sidepanel, the inputs are exported to the
  #csv file specified in the inputsLocation
  observeEvent(input$save_inputs, {
    # Define inputs to save
    
    inputs_to_save <- c('Salutation','selector','selector2','Day','Time','Greeting', 'Name')
    # Declare inputs
    inputs <- NULL
    # Append all inputs before saving to folder
    for(input.i in inputs_to_save){
      inputs <- append(inputs, input[[input.i]])
    }
    # Inputs data.frame
    inputs_data_frame <- data.frame(inputId = inputs_to_save, value = inputs)
    # Save Inputs
    write.csv(inputs_data_frame, file = input$inputsLocation, row.names = FALSE)
  }) 
  
  #if user clicks the load input button in the content editor the customized content
  #is loaded into the textinput fields.
  observeEvent(input$load_inputs2, {
    # Load inputs
    uploaded_inputs <- read.csv(input$inputsLocation2)
    # Update each input
    for(i in 1:nrow(uploaded_inputs)){
      updateTextInput(session,
                      inputId = uploaded_inputs$inputId[i],
                      value = uploaded_inputs$value[i])
    }
  })
  
  #if user clicks the save input button in the content editor,
  #the content is exported to the excel file that is specified
  #in the inputsLocation2
  observeEvent(input$save_inputs2, {
    
    # Define inputs to save
    inputs_to_save <- c('first_response','reply','phone','update','damage',"productcomplaint","return","parcel")
    # Declare inputs
    inputs <- NULL
    # Append all inputs before saving to folder
    for(input.i in inputs_to_save){
      inputs <- append(inputs, input[[input.i]])
    }
    # Inputs data.frame
    inputs_data_frame <- data.frame(inputId = inputs_to_save, value = inputs)
    # Save Inputs
    write.csv(inputs_data_frame, file = input$inputsLocation2, row.names = FALSE)
  }) 
  
  
}

#to run shiny app
shinyApp(ui=ui,server = server)