golem base build

Author: webscale

DESCRIPTION

@@ -15,6 +15,6 @@ Imports:
     htmltools
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 6.1.1
+RoxygenNote: 7.1.1
 URL: https://github.com/webscale/shVis
 BugReports: https://github.com/webscale/shVis/issues

NAMESPACE

@@ -7,4 +7,11 @@ importFrom(golem,add_resource_path)
 importFrom(golem,bundle_resources)
 importFrom(golem,favicon)
 importFrom(golem,with_golem_options)
+importFrom(htmltools,HTML)
+importFrom(htmltools,tagAppendAttributes)
+importFrom(htmltools,tagList)
+importFrom(htmltools,tags)
+importFrom(shiny,NS)
+importFrom(shiny,column)
 importFrom(shiny,shinyApp)
+importFrom(shiny,tagList)

R/fct_helpers.R

@@ -0,0 +1,30 @@
+#' dt_edit_mod UI Function
+#'
+#' @description A shiny Module.
+#'
+#' @param id,input,output,session Internal parameters for {shiny}.
+#'
+#' @noRd 
+#'
+#' @importFrom shiny NS tagList 
+mod_dt_edit_mod_ui <- function(id){
+  ns <- NS(id)
+  tagList(
+ 
+  )
+}
+    
+#' dt_edit_mod Server Function
+#'
+#' @noRd 
+mod_dt_edit_mod_server <- function(input, output, session){
+  ns <- session$ns
+ 
+}
+    
+## To be copied in the UI
+# mod_dt_edit_mod_ui("dt_edit_mod_ui_1")
+    
+## To be copied in the server
+# callModule(mod_dt_edit_mod_server, "dt_edit_mod_ui_1")
+ 

R/mod_dt_edit_mod.R

@@ -0,0 +1,3 @@
+## code to prepare `my_dataset` dataset goes here
+
+usethis::use_data(my_dataset, overwrite = TRUE)

R/utils_helpers.R

@@ -19,7 +19,7 @@ usethis::use_package( "thinkr" )
 
 ## Add modules ----
 ## Create a module infrastructure in R/
-golem::add_module( name = "name_of_module1" ) # Name of the module
+golem::add_module( name = "dt_edit_mod" ) # Name of the module
 golem::add_module( name = "name_of_module2" ) # Name of the module
 
 ## Add helper functions ----

data-raw/my_dataset.R

@@ -0,0 +1,111 @@
+---
+title: "DT Play"
+author: "Niraj Juneja"
+date: "8/30/2020"
+output: html_document
+runtime: shiny
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+This R Markdown document is made interactive using Shiny.  Made as playground for lwarnign the DT package
+
+To learn more, see [Interactive Documents](http://rmarkdown.rstudio.com/authoring_shiny.html).
+
+## DT Table playground
+Play with DT
+
+```{r dt-plan , echo=FALSE , message=FALSE}
+library(DT)
+iris2 = head(iris, 20)
+options(DT.options = list(pageLength = 5))
+# default Bootstrap style in DT
+#datatable(iris2, style = 'bootstrap')
+
+datatable(head(iris), colnames = c('Here', 'Are', 'Some', 'New', 'Names'))
+
+datatable(iris2,  colnames = c('Here', 'Are', 'Some', 'New', 'Names') ,
+          style = 'bootstrap', class = 'table-bordered')
+
+
+```
+
+```{r}
+m = matrix(c(
+  '<b>Bold</b>', '<em>Emphasize</em>', '<a href="http://rstudio.com">RStudio</a>',
+  '<a href="#" onclick="alert(\'Hello World\');">Hello</a>'
+), 2)
+colnames(m) = c('<span style="color:red">Column 1</span>', '<em>Column 2</em>')
+datatable(m , escape = FALSE)  # escape = TRUE by default
+```
+
+
+
+```{r}
+library(shiny)
+
+
+
+A <- c("Alpha", "Beta", "Gamma", "Delta")
+B <- c("one","two","three","four")
+C <- c("five","six","seven","eight")
+
+
+Test_File <- tibble::tibble("A" = A , "B" = B , "C" = C)
+
+renderDataTable(
+  data <- Test_File %>%
+      dplyr::select(A,B) %>%
+      dplyr::mutate(URL = paste0("https://www.testsite.com/abcdefg/", A))%>%
+      dplyr::mutate(URL = paste0("<a href='", URL, "'>",A,"</a>"))
+  , escape = FALSE)
+
+
+```
+
+
+## Inputs and Outputs
+
+You can embed Shiny inputs and outputs in your document. Outputs are automatically updated whenever inputs change.  This demonstrates how a standard R plot can be made interactive by wrapping it in the Shiny `renderPlot` function. The `selectInput` and `sliderInput` functions create the input widgets used to drive the plot.
+
+```{r eruptions, echo=FALSE}
+inputPanel(
+  selectInput("n_breaks", label = "Number of bins:",
+              choices = c(10, 20, 35, 50), selected = 20),
+  
+  sliderInput("bw_adjust", label = "Bandwidth adjustment:",
+              min = 0.2, max = 2, value = 1, step = 0.2)
+)
+
+renderPlot({
+  hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks),
+       xlab = "Duration (minutes)", main = "Geyser eruption duration")
+  
+  dens <- density(faithful$eruptions, adjust = input$bw_adjust)
+  lines(dens, col = "blue")
+})
+```
+
+## Embedded Application
+
+It's also possible to embed an entire Shiny application within an R Markdown document using the `shinyAppDir` function. This example embeds a Shiny application located in another directory:
+
+```{r tabsets, echo=FALSE}
+shinyAppDir(
+  system.file("examples/06_tabsets", package = "shiny"),
+  options = list(
+    width = "100%", height = 550
+  )
+)
+```
+
+Note the use of the `height` parameter to determine how much vertical space the embedded application should occupy.
+
+You can also use the `shinyApp` function to define an application inline rather then in an external directory.
+
+In all of R code chunks above the `echo = FALSE` attribute is used. This is to prevent the R code within the chunk from rendering in the document alongside the Shiny components.
+
+
+

dev/02_dev.R

@@ -0,0 +1,26 @@
+library(DT)
+
+xfun::session_info('DT')
+
+datatable(iris, options = list(), class = "display",
+          callback = JS("return table;"), rownames, colnames, container,
+          caption = NULL, filter = c("none", "bottom", "top"), escape = TRUE,
+          style = "default", width = NULL, height = NULL, elementId = NULL,
+          fillContainer = getOption("DT.fillContainer", NULL),
+          autoHideNavigation = getOption("DT.autoHideNavigation", NULL),
+          selection = c("multiple", "single", "none"), extensions = list(),
+          plugins = NULL, editable = FALSE)
+
+
+datatable(iris , style = 'bootstrap' , class = "table-hover")
+
+
+DT:::DT2BSClass('display')
+
+DT:::DT2BSClass(c('compact', 'cell-border'))
+
+library(DT)
+iris2 = head(iris, 20)
+options(DT.options = list(pageLength = 5))
+# default Bootstrap style in DT
+datatable(iris2, style = 'bootstrap')

dev/DT_play.Rmd

@@ -0,0 +1,3 @@
+$( document ).ready(function() {
+  
+});