Skip to contents

Fetch Module Code

Source: R/UD_Server.R
UD_fetch_code.Rd

Fetches the code to generate results seen in the app

Usage

UD_fetch_code(state)

Arguments

state

UD state from UD_fetch_state()

Value

Character object vector with the lines of code

Examples

# This creates a session variable that will be available in Shiny
state = UD_test_mksession(session=list())$state
#> → UD: including file
#> → UD:   source: file.path(system.file(package="onbrand"), "templates", "report.docx")
#> → UD:   dest:   file.path("config","report.docx")
#> → UD: including file
#> → UD:   source: file.path(system.file(package="onbrand"), "templates", "report.pptx")
#> → UD:   dest:   file.path("config","report.pptx")
#> → UD: including file
#> → UD:   source: file.path(system.file(package="onbrand"), "templates", "report.yaml")
#> → UD:   dest:   file.path("config","report.yaml")
#> → UD: State initialized
#> → UD: module checksum updated:897d952fecbc804999396a96f9df4b20
UD_fetch_code(state)
#> [1] "myDS = readxl::read_excel(path=\"TEST_DATA.xlsx\", sheet=\"DATA\")\nmyDS = janitor::clean_names(myDS, case=\"none\")"