Titre de votre Document

library(shiny)
library(ggplot2)
library(FactoMineR)
library(factoextra)

Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa

setwd('/Users/mathisbouvet/Documents/Stage/Données Analytiques/Données Analytique')
APH=read.csv('ValeurH2.csv',sep=";",header=TRUE)
APH$Fertile=as.factor(APH$Fertile)
d=APH[,c(1,3,4,5,6,7,2)]

ui <- fluidPage(
    titlePanel("Test de Publication"),
    sidebarLayout(
        sidebarPanel(
            sliderInput("num", "Choisissez un nombre :", 1, 100, 50)
        ),
        mainPanel(
            textOutput("result")
        )
    )
)

server <- function(input, output) {
    output$result <- renderText({
        paste("Vous avez choisi le nombre :", input$num)
    })
}

shinyApp(ui = ui, server = server)