app.R

library(shiny)
library(dplyr)
library(randomForest)
library(ggplot2)

data <- read.delim("data.csv",header=T,sep=',')
data <- subset(data,select=c('diagnosis','radius_worst','perimeter_worst','concave.points_worst','area_worst','concave.points_mean'))
data$Class<-data$diagnosis
data<-data[-1]

#train your model
model <- randomForest(
  Class ~ .,
  data=data,
  importance=TRUE,
  ntree=1000
)


ui <- fluidPage(
  titlePanel("Cancer Classifier"),
  sidebarLayout(
    sidebarPanel("Input Features:",
                 br(),
                 numericInput("radius_worst_input","Radius Worst:",round(mean(data$radius_worst),2),min=0,max=Inf),
                 br(),
                 numericInput("perimeter_worst_input","Perimeter Worst",round(mean(data$perimeter_worst),2),min=0,max=Inf),
                 br(),
                 numericInput("concave.points_worst_input","Concave Points Worst",round(mean(data$concave.points_worst),2),min=0,max=Inf),
                 br(),
                 numericInput("area_worst_input","Area Worst",round(mean(data$area_worst),2),min=0,max=Inf),
                 br(),
                 numericInput("concave.points_mean_input","Concave Points Mean",round(mean(data$concave.points_worst),2),min=0,max=Inf)
    ),
    mainPanel("Results:",
              htmlOutput("results"),
              br(),
              br(),
              plotOutput("coolplot"))
  )
)

server <- function(input, output) {

output$coolplot <- renderPlot({
  plot<-  ggplot(data, aes(radius_worst))+ geom_histogram()
  plot + geom_vline(xintercept=input$radius_worst_input, linetype="dashed", color = "red")
  })
  
  output$results <- renderText({
    
    test <- data.frame(radius_worst=input$radius_worst_input,perimeter_worst=input$perimeter_worst_input,concave.points_worst=input$concave.points_worst_input,area_worst=input$area_worst_input,concave.points_mean=input$concave.points_mean_input)
    pred<-predict(model,test)
    if(pred=="M"){
      text<-paste("<font color=\"#FF0000\"><font size=\"1000\">","Malignant", "</font>")
    }else{
      text<-paste("<font color=\"#008000\"><font size=\"1000\">","Benign", "</font>")
    }
    text
  })
}
shinyApp(ui = ui, server = server)