assessment ),]
#Convert to factor
ttclasses$assessment <- factor(ttclasses$assessment)
# please see the formats in help("strptime")
ttclasses$due_date <- as.Date(ttclasses$due_date, format = "%m/%d/%y")
ttclasses$name <- factor(ttclasses$name)
Thanks & Regar
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
Hi Greg,
Please find the R Code in the word file attached here. Its plain text format
Thanks & Regards
Biplab Nayak
On Wed, Jun 9, 2021 at 12:15 AM Greg Minshall wrote:
> Biplab,
>
> i'm not sure how to help you here, but this list pretty much runs on
> plain ASCII (or,
Hi Bert,
I have attached the word file with the R code.
Thanks & Regards
Biplab Nayak
On Tue, Jun 8, 2021 at 1:07 PM Bert Gunter wrote:
> I do not wish to be involved in this thread other than to note that you
> were, I believe, asked not to post in HTML. And because you did, you w
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, horizont
Hi Rui,
Please find the data file attached here.
Thanks & Regards
Biplab Nayak
On Mon, Jun 7, 2021 at 4:21 PM Rui Barradas wrote:
> Hello,
>
> This is not reproducible, we don't have access to ttclasses.csv.
> Can you post sample data? Please post the output of
>
>
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")
7 matches
Mail list logo