inst/app/ui.R

library("shiny")
library("purrple")

page <- purrplePage(fluidPage)
shinyUI(page(

  sidebarPanel(
    htmlOutput( "movie_description")
  ),
  mainPanel(
    htmlOutput( "search_results" )
  )

))
romainfrancois/cpasbien documentation built on May 27, 2019, 1:48 p.m.