# NOT RUN {
if (interactive()) {
library("shiny")
library("shinyKnobs")
ui <- fluidPage(
touchGripKnobInput(
inputId = "myKnob",
width = "25%",
label = "A label...",
color = "#428BCA"
),
verbatimTextOutput(outputId = "res")
)
server <- function(input, output, session) {
output$res <- renderPrint(input$myKnob)
}
shinyApp(ui = ui, server = server)
}
# }
Run the code above in your browser using DataCamp Workspace