[087906]: / ui.R

Download this file

11 lines (7 with data), 228 Bytes

1
2
3
4
5
6
7
8
library(shiny)
shinyUI(fluidPage(
textInput("text", label = h2("Cardiology Next Word Predictor"), value = "myocardial"),
submitButton(text = "Predict next word..."),
hr(),
fluidRow((verbatimTextOutput("value")))
))