shinytareas

library(shiny)
# Define UI for application that draws a histogram
ui <- fluidPage(theme = ,
                navbarPage("APlicaciones",
                           tabPanel("Analisis de Sentimientos",
                                    sidebarPanel(tags$h4("Pega el texto aqui:"),
                                                 textAreaInput("texto", "","",rows = 15)
                                                 
                            
                           ),
                           mainPanel(h3("El analisis de emociones es:"),
                                     plotOutput("grafica_emociones"),
                                     h3("El analisis de sentimiento es:"),
                                     plotOutput("grafica_sentimientos"))
                           ),

    # Sidebar with a slider input for number of bins 
    tabPanel("precio de la casa",
        sidebarPanel(tags$h4("Ingresa los siguientes datos:"),
                     sliderInput("dist_taxi","Distancia al sitio de taxi mas cercano:", 0,17000,8300),
                     sliderInput("dist_market", "Distancia al supermercado:",1500,19000,11000),
                     sliderInput("dist_hospital", "Distancia al Hospital:",3000,23000,13000),
                     sliderInput("carpet", "Area de piso en la casa:",0,2500,1500),
                     sliderInput("builtop", "Area de construccion:", 0,3000,1800),
                     selectInput("parking", "Tipo de estacionamiento:", c("Covered","Open","Notparking")),
                     selectInput("city_category", "Categria de la ciudad:", c("CAT B","CAT C")),
                     sliderInput("rainfall", "Precipitacion anual:", 0, 1600, 800),
          ),
        mainPanel(h2("El precio aproximado de la casa sera:"),
                  verbatimTextOutput("house_price")
                  )
    )
                           ))
        
      
   

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$grafica_emociones <- renderPlot({
        texto_cadena<- input$texto
        texto_palabras<-get_tokens(texto_cadena)
        emociones_df<- get_nrc_sentimientos(texto_palabras, lenguage= "spanish")
        barplot(
          colSums(prop.table(emociones_df[,1:8])),
          space = 0.2,
          horiz = FALSE, 
          las = 1,
          cex.names= 0.7,
          col = brewe.pal(n=8, name="Set3"),
          main = "Analisis de emociones ",
          xlab = "emociones"
        )
    })
output$grafica_sentimientos <-  renderPlot({
  texto_cadena<- input$texto
  texto_palabras<-get_tokens(texto_cadena)
  emociones_df<- get_nrc_sentimientos(texto_palabras, lenguage= "spanish")
  secuencia_sentimientos <- (emociones_df$negative*-1)+ emociones_df$positive
  simple_plot(secuencia_sentimientos)
})

  output$house_price <- renderPrint({
    if (input$parking == "covered"){
      parking_value <- 0
    }
    else if (input$parking == "Not Parking"){
      parking_value <- -604600
    }
    else if (input$parking == "Not Provided"){
      parking_value <- -489800
    }
    else if (input$parking == "Open"){
      parking_value <- -263500
    }
    
     5611000 +
      30.41 = input$dist_taxi
      12.48 = input$dist_market
      48.62 = input$dist_hospital
      773.4 = input$carpet
      1314 = input$builtop
  })
}


shinyApp(ui = ui, server = server)

## PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.

Shiny applications not supported in static R Markdown documents