Add a title panel to provide more top-space to drag.

coatless · coatless · commit 2e100d1ac802 · 2024-12-26T04:51:39.000-08:00
diff --git a/README.Rmd b/README.Rmd
@@ -43,6 +43,7 @@ library(shiny)
 library(shinytangle)
 
 ui <- fluidPage(
+  titlePanel("shinytangle: Demo Inline"),
   p(
     "When you have", 
     inlineNumericInput("amount", 5, min = 0, max = 10), 
diff --git a/README.md b/README.md
@@ -32,6 +32,7 @@ library(shiny)
 library(shinytangle)
 
 ui <- fluidPage(
+  titlePanel("shinytangle: Demo Inline"),
   p(
     "When you have", 
     inlineNumericInput("amount", 5, min = 0, max = 10), 
