Hi Rui, Please find the data file attached here.
Thanks & Regards Biplab Nayak On Mon, Jun 7, 2021 at 4:21 PM Rui Barradas <ruipbarra...@sapo.pt> wrote: > Hello, > > This is not reproducible, we don't have access to ttclasses.csv. > Can you post sample data? Please post the output of > > dput(ttclasses) > > Or, if it is too big, the output of > > dput(head(ttclasses, 20)) > > > Hope this helps, > > Rui Barradas > > > Às 18:03 de 07/06/21, Biplab Nayak escreveu: > > Hi All, > > I Need a bit of help to fix the code. > > Code: > > library(readr) > > library(shiny) > > ttclasses <- read_csv("ttclasses.csv") > > > > #Filter data > > library(stringr) > > library(dplyr) > > ttclasses <-ttclasses %>% > > filter(str_detect(assessment, "Assignment")) > > ttclasses <-ttclasses %>% > > filter(str_detect(name, "Name")) > > > > ##Remove NA values. > > library(tidyverse) > > ttclasses <-ttclasses %>% drop_na("score") > > > > #Convert to factor > > ttclasses$assessment <- as.factor(ttclasses$assessment) > > ttclasses$due_date = as.Date(ttclasses$due_date, format = "mm/dd/yy") > > ##ttclasses$name <- as.factor(ttclasses$name) > > > > # Define UI ---- > > ui <- fluidPage( > > > > # App title ---- > > titlePanel("Assessment Dashboard"), > > > > # Sidebar layout with input and output definitions ---- > > sidebarLayout( > > > > # Sidebar panel for inputs ---- > > sidebarPanel( > > > > # Input: Selector for variable to plot the grades for the selected > > assignment ---- > > selectInput("assessment", "Assessment:", > > c("Assignment 1" = "Assignment 1", > > "Assignment 2" = "Assignment 2", > > "Assignment 3" = "Assignment 3", > > "Assignment 4" = "Assignment 4", > > "Assignment 5" = "Assignment 5")), > > selectInput("name", "Name:", > > ttclasses[,2]), > > > > dateRangeInput("due_date", > > "Due-Date:",start = max(ttclasses$due_date) , > > separator = " - ") > > ), > > > > # Main panel for displaying outputs ---- > > mainPanel( > > > > # Output: Plot of the requested variable against grade ---- > > plotOutput("gradePlot") > > > > ) > > ) > > ) > > > > # Define server logic to plot ---- > > server <- function(input, output) { > > output$gradePlot <- renderPlot({ > > grade_ad = input$assessment > > boxplot(ttclasses$score[ttclasses$assessment==grade_ad], > > frame.plot=FALSE, horizontal=TRUE, col="magenta", main=grade_ad) > > ttclasses <-ttclasses %>% > > filter(ttclasses$due_date >= input$due_date[1] & > ttclasses$due_date > > <= input$due_date[2]) > > }) > > } > > > > # Create Shiny app ---- > > shinyApp(ui, server) > > > > Thanks & Regards > > > > [[alternative HTML version deleted]] > > > > ______________________________________________ > > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > > https://stat.ethz.ch/mailman/listinfo/r-help > > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > > and provide commented, minimal, self-contained, reproducible code. > > > ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.