diff --git a/.Rbuildignore b/.Rbuildignore
index c5d51fc..b0160d1 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -8,3 +8,4 @@
 ^docs$
 ^_pkgdown\.yml$
 ^CRAN-RELEASE$
+^.*\.log$
diff --git a/.gitignore b/.gitignore
index 9df09e9..04ac529 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,4 @@
 .Ruserdata
 cache/
 docs
+*.log
diff --git a/NEWS.md b/NEWS.md
index ec221e3..1f4e332 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -3,6 +3,7 @@
 ## Changes
 - collocationScoreQuery method added
 - hc_add_onclick_korap_search function added
+- shiny web application demo added
 - support for orphaned plotly package dropped
 
 # RKorAPClient 0.5.9
diff --git a/demo/00Index b/demo/00Index
index f2e526a..4a9a3c8 100644
--- a/demo/00Index
+++ b/demo/00Index
@@ -5,4 +5,5 @@
 regional                  Map plot regional frequencies of query expression
 mosaicplot                Visualize frequencies of alternative query terms in relation to other variables
 highcharter-example       Visualize frqequencies of optionally alternative terms over time with interactive HTML and JavaScript elements using the package highcharter as wrapper for Highcharts
+shiny-frequency-curves    Web application that plots frequency curves with highcharts and shiny
 writtenVsSpoken           Compare frequencies in written vs. spoken corpora
diff --git a/demo/shiny-apps/frequency_curves/theme-ids-dark.R b/demo/shiny-apps/frequency_curves/theme-ids-dark.R
deleted file mode 100644
index 1ff03d2..0000000
--- a/demo/shiny-apps/frequency_curves/theme-ids-dark.R
+++ /dev/null
@@ -1,228 +0,0 @@
-#' Dark IDS theme for highcharts
-#'
-#' @param ... Named argument to modify the theme
-#'
-#' @examples
-#'
-#' highcharts_demo() %>%
-#'   hc_add_theme(hc_theme_ids_dark())
-#' @export
-hc_theme_ids_dark <- function(...) {
-  theme <-
-    list(
-      colors = c('#EB7C31', "#1F77B4", "#2CA02C", "#D62728", "#9467BD", "#8C564B", "#E377C2", "#7F7F7F", "#BCBD22", "#17BECF", "#AEC7E8", "#FFBB78", "#98DF8A", "#FF9896", "#C5B0D5", "#C49C94", "#F7B6D2", "#C7C7C7", "#DBDB8D", "#9EDAE5"),
-#      colors = c(
-#        '#EB7C31', "#9BAD0B", "#2b908f", "#90ee7e", "#f45b5b", "#7798BF",
-#        "#aaeeee", "#ff0066", "#eeaaee", "#55BF3B"
-#      ),
-      chart = list(
-        backgroundColor = list(
-          linearGradient = list(x1 = 0, y1 = 1, x2 = 1, y2 = 0),
-          stops = list(
-            list(0, "#2a2a2b"),
-            list(1, "#3e3e3e")
-          )
-        ),
-        style = list(
-          fontFamily = "Roboto Condensed",
-          fontFamily = '"Univers LT Std 47 Cn Lt", "Roboto Condensed", "Unica One", sans-serif-condensed, sans',
-          fontSize = "12pt"
-        ),
-        plotBorderColor = "#606063"
-      ),
-      title = list(
-        style = list(
-          color = "#E0E0E3",
-          fontSize = "20px"
-        )
-      ),
-      subtitle = list(
-        style = list(
-          color = "#E0E0E3",
-          fontSize = "14pt"
-        )
-      ),
-      xAxis = list(
-        gridLineColor = "#707073",
-        labels = list(
-          style = list(
-            color = "#E0E0E3",
-            fontSize = "12pt"
-          )
-        ),
-        lineColor = "#707073",
-        minorGridLineColor = "#505053",
-        tickColor = "#707073",
-        title = list(
-          style = list(
-            color = "#A0A0A3",
-            fontSize = "12pt"
-          )
-        )
-      ),
-      yAxis = list(
-        gridLineColor = "#707073",
-        labels = list(
-          style = list(
-            color = "#E0E0E3",
-            fontSize = "12pt"
-          )
-        ),
-        lineColor = "#707073",
-        minorGridLineColor = "#505053",
-        tickColor = "#707073",
-        tickWidth = 1,
-        title = list(
-          style = list(
-            color = "#A0A0A3",
-            fontSize = "12pt"
-          )
-        )
-      ),
-      tooltip = list(
-        backgroundColor = "rgba(0, 0, 0, 0.85)",
-        style = list(
-          color = "#E0E0E0",
-          fontSize = "11pt"
-        )
-      ),
-      plotOptions = list(
-        series = list(
-          dataLabels = list(
-            color = "#B0B0B3",
-            fontSize = "13pt"
-          ),
-          marker = list(
-            lineColor = "#333"
-          )
-        ),
-        boxplot = list(
-          fillColor = "#505053"
-        ),
-        candlestick = list(
-          lineColor = "white"
-        ),
-        errorbar = list(
-          color = "white"
-        )
-      ),
-      legend = list(
-        itemStyle = list(
-          color = "#E0E0E3"
-        ),
-        itemHoverStyle = list(
-          color = "#FFF"
-        ),
-        itemHiddenStyle = list(
-          color = "#606063"
-        )
-      ),
-      credits = list(
-        style = list(
-          color = "#666"
-        )
-      ),
-      labels = list(
-        style = list(
-          color = "#707073"
-        )
-      ),
-
-      drilldown = list(
-        activeAxisLabelStyle = list(
-          color = "#F0F0F3"
-        ),
-        activeDataLabelStyle = list(
-          color = "#F0F0F3"
-        )
-      ),
-
-      navigation = list(
-        buttonOptions = list(
-          symbolStroke = "#DDDDDD",
-          theme = list(
-            fill = "#505053"
-          )
-        )
-      ),
-
-      rangeSelector = list(
-        buttonTheme = list(
-          fill = "#505053",
-          stroke = "#000000",
-          style = list(
-            color = "#CCC"
-          ),
-          states = list(
-            hover = list(
-              fill = "#707073",
-              stroke = "#000000",
-              style = list(
-                color = "white"
-              )
-            ),
-            select = list(
-              fill = "#000003",
-              stroke = "#000000",
-              style = list(
-                color = "white"
-              )
-            )
-          )
-        ),
-        inputBoxBorderColor = "#505053",
-        inputStyle = list(
-          backgroundColor = "#333",
-          color = "silver"
-        ),
-        labelStyle = list(
-          color = "silver"
-        )
-      ),
-
-      navigator = list(
-        handles = list(
-          backgroundColor = "#666",
-          borderColor = "#AAA"
-        ),
-        outlineColor = "#CCC",
-        maskFill = "rgba(255,255,255,0.1)",
-        series = list(
-          color = "#7798BF",
-          lineColor = "#A6C7ED"
-        ),
-        xAxis = list(
-          gridLineColor = "#505053"
-        )
-      ),
-
-      scrollbar = list(
-        barBackgroundColor = "#808083",
-        barBorderColor = "#808083",
-        buttonArrowColor = "#CCC",
-        buttonBackgroundColor = "#606063",
-        buttonBorderColor = "#606063",
-        rifleColor = "#FFF",
-        trackBackgroundColor = "#404043",
-        trackBorderColor = "#404043"
-      ),
-
-      legendBackgroundColor = "rgba(0, 0, 0, 0)",
-      background2 = "#233238",
-      dataLabelsColor = "#233238",
-      textColor = "#34495e",
-      maskColor = "rgba(255,255,255,0.3)",
-      contrastTextColor = "#F0F0F3"
-    )
-
-  theme <- structure(theme, class = "hc_theme")
-
-  if (length(list(...)) > 0) {
-    theme <- hc_theme_merge(
-      theme,
-      hc_theme(...)
-    )
-  }
-
-  theme
-}
diff --git a/demo/shiny-frequency-curves.R b/demo/shiny-frequency-curves.R
new file mode 100644
index 0000000..ea8b43d
--- /dev/null
+++ b/demo/shiny-frequency-curves.R
@@ -0,0 +1 @@
+shiny::runApp(system.file("shiny-apps", "frequency_curves", package="RKorAPClient"))
diff --git a/demo/shiny-apps/frequency_curves/server.R b/inst/shiny-apps/frequency_curves/server.R
similarity index 95%
rename from demo/shiny-apps/frequency_curves/server.R
rename to inst/shiny-apps/frequency_curves/server.R
index 8de9272..26125cc 100644
--- a/demo/shiny-apps/frequency_curves/server.R
+++ b/inst/shiny-apps/frequency_curves/server.R
@@ -1,3 +1,8 @@
+hc_theme <- if(require(idsThemeR)) {
+  idsThemeR::hc_theme_ids_light()
+} else {
+  hc_theme_hcrt()
+}
 rsr <- new("KorAPConnection", verbose = TRUE)
 vc <- "(textType = /Zeit.*/ | textTypeRef=Plenarprotokoll) & availability!=QAO-NC-LOC:ids & creationDate in"
 years <- c(2005:2020)
@@ -36,7 +41,7 @@
                        as.alternatives = as.alternatives) %>%
     hc_freq_by_year_ci(as.alternatives, smooth = T) %>%
     hc_yAxis(title = list(text = "Instanzen pro Million Wörter")) %>%
-    hc_add_theme(hc_theme_ids_light()) %>%
+    hc_add_theme(hc_theme) %>%
     hc_caption(text = paste(
       "Frequenzverläufe (mit 95%-Konfidenzbändern) im",
       "<a href='http://www.dereko.de'>Deutschen Referenzkorpus DeReKo</a>",
diff --git a/demo/shiny-apps/frequency_curves/ui.R b/inst/shiny-apps/frequency_curves/ui.R
similarity index 96%
rename from demo/shiny-apps/frequency_curves/ui.R
rename to inst/shiny-apps/frequency_curves/ui.R
index 82fe9c2..f33ea3f 100644
--- a/demo/shiny-apps/frequency_curves/ui.R
+++ b/inst/shiny-apps/frequency_curves/ui.R
@@ -3,10 +3,10 @@
 library(RKorAPClient)
 library(utils)
 library(stringr)
-library(idsThemeR)
-#source("theme-ids-dark.R")
+library()
 options(shiny.autoreload = TRUE)
 
+
 shinyUI(
   fluidPage(
     title = "Wortfrequenzverläufe in DeReKo",
diff --git a/demo/shiny-apps/frequency_curves/www/enter-button.js b/inst/shiny-apps/frequency_curves/www/enter-button.js
similarity index 100%
rename from demo/shiny-apps/frequency_curves/www/enter-button.js
rename to inst/shiny-apps/frequency_curves/www/enter-button.js
diff --git a/demo/shiny-apps/frequency_curves/www/frequency_curves.css b/inst/shiny-apps/frequency_curves/www/frequency_curves.css
similarity index 100%
rename from demo/shiny-apps/frequency_curves/www/frequency_curves.css
rename to inst/shiny-apps/frequency_curves/www/frequency_curves.css