U Zf}@sddlZddlZddlZddlZddlZddlZddlZddlmZddl m Z dZ dZ dZ dZd Zd Zd Zd Zd ZdZdZdZddZddZddZddZddZd4ddZddZdd Zd!d"Zd#d$Z d%d&Z!d'd(Z"d)d*Z#d5d,d-Z$d.d/Z%d6d0d1Z&d2d3Z'dS)7N) r_keywords) reorder_propsa#' @export {funcname} <- function({default_argtext}{wildcards}) {{ {wildcard_declaration} props <- list({default_paramtext}{wildcards}) if (length(props) > 0) {{ props <- props[!vapply(props, is.null, logical(1))] }} component <- list( props = props, type = '{name}', namespace = '{project_shortname}', propNames = c({prop_names}{wildcard_names}), package = '{package_name}' ) structure(component, class = c('dash_component', 'list')) }} z?.{rpkgname}_js_metadata <- function() {{ deps_metadata <- list(a,`{dep_name}` = structure(list(name = "{dep_name}", version = "{project_ver}", src = list(href = NULL, file = "deps"), meta = NULL, script = {script_name}, stylesheet = {css_name}, head = NULL, attachment = NULL, package = "{rpkgname}", all_files = FALSE{async_or_dynamic}), class = "html_dependency")a>`{project_shortname}` = structure(list(name = "{project_shortname}", version = "{project_ver}", src = list(href = NULL, file = "deps"), meta = NULL, script = {script_name}, stylesheet = {css_name}, head = NULL, attachment = NULL, package = "{rpkgname}", all_files = FALSE{async_or_dynamic}), class = "html_dependency")z) return(deps_metadata) } z% Auto-generated: do not edit by hand \name{{{funcname}}} \alias{{{funcname}}} \title{{{name} component}} \description{{ {description} }} \usage{{ {funcname}({default_argtext}) }} \arguments{{ {item_text} }} \value{{{value_text}}} a~Package: {package_name} Title: {package_title} Version: {package_version} Description: {package_description} Depends: R (>= 3.0.2){package_depends} Imports: {package_imports} Suggests: {package_suggests}{package_rauthors} License: {package_license}{package_copyright} URL: {package_url} BugReports: {package_issues} Encoding: UTF-8 LazyData: true{vignette_builder} KeepSource: true a# ignore JS config files/folders node_modules/ coverage/ src/ lib/ .babelrc .builderrc .eslintrc .npmignore .editorconfig .eslintignore .prettierrc .circleci .github # demo folder has special meaning in R # this should hopefully make it still # allow for the possibility to make R demos demo/.*\.js demo/.*\.html demo/.*\.css # ignore Python files/folders setup.py usage.py setup.py requirements.txt MANIFEST.in CHANGELOG.md test/ # CRAN has weird LICENSE requirements LICENSE.txt ^.*\.Rproj$ ^\.Rproj\.user$ z% Auto-generated: do not edit by hand \docType{{package}} \name{{{package_name}-package}} \alias{{{package_name}}} \title{{{pkg_help_title}}} \description{{ {pkg_help_description} }} \author{{ \strong{{Maintainer}}: {maintainer} }} a+ dash_assert_valid_wildcards <- function (attrib = list("data", "aria"), ...) { args <- list(...) validation_results <- lapply(names(args), function(x) { grepl(paste0("^(", paste0(attrib, collapse="|"), ")-[a-zA-Z0-9_-]+$"), x) }) if (FALSE %in% validation_results) { stop(sprintf("The following props are not valid in this component: '%s'", paste(names(args)[grepl(FALSE, unlist(validation_results))], collapse = ", ")), call. = FALSE) } else { return(args) } } zQ wildcard_names = names(dash_assert_valid_wildcards(attrib = list({}), ...)) z9 \item{{...}}{{wildcards allowed have the form: `{}`}} c Cs&t|}t|d}t|}d}d}d}d} d} d} tdd|Drjt|} d}t| dd}d}d d d|D} |ddD]F} | ds| d kr| | q| t kr| | t d | |q| d d d|D7} | d d d|D7} tjt|||| ||| || ||d S)Npropscss|]}|dVqdS-*Nendswith.0keyrM/tmp/pip-unpacked-wheel-47crqvv_/dash/development/_r_components_generation.py sz(generate_class_string.., ...r z, wildcard_names, css(|] }d|kr|dkrd|VqdS)*)setProps'{}'Nformatr prrrrsrzSWARNING: prop "{}" in component "{}" is an R keyword - REMOVED FROM THE R COMPONENTcss|]}d|VqdSz{}=NULLNrrrrrrscss*|]"}|dkrd|nd|VqdS)childrenz{0}={0}z {}=childrenNrrrrrrs) funcnamenamedefault_argtext wildcardswildcard_declarationdefault_paramtextproject_shortname prop_nameswildcard_names package_name)snake_case_to_camel_caserlistkeysanyget_wildcards_rwildcard_templaterreplacejoinr removerwarningswarnr_component_stringformat_fn_name)rrr#prefixr& prop_keysr r!r%r"raccepted_wildcardsr$itemrrrgenerate_class_strings^        r8c Cs|tjdtt|}t|dgt|dg}|d}t |}t j |d}g}g}t |dkrt t |D]} || } | d} t| } d| kr| d d} n d |} d | krd | }d }nd | }d }|tj | |||||| dg7}d|}qtndt |dkrh|d} | d} t| } d | krDd | }d }nd | }d }tj |||||| d}d||tg}|S)aCDynamically generate R function to supply JavaScript and CSS dependency information required by the dash package for R. Parameters ---------- project_shortname = component library name, in snake case Returns ------- function_string = complete R function code to provide component features rZ_js_distZ _css_distversion)rpkgnamerZrelative_package_pathZdash_.{}cssrNULL)dep_name project_verr:r# script_namecss_nameasync_or_dynamicz, )r#r@r:rArBrCr)syspathinsertosgetcwd importlib import_modulegetattrgetr'frame_open_templaterlenrangeget_async_typesplitframe_element_templater.frame_body_templateframe_close_template)pkg_datar#modZalldistr@r:Zfunction_frame_openZfunction_frameZfunction_frame_bodydepZcurr_depZrpprCr?rBrAfunction_stringrrrgenerate_js_metadatasl           rYcCsXd}|D]F}|dkr ||}t|ts:d|}n t|}d||}q |S)Nr)asyncZdynamicrz , {} = {})r) isinstanceboolrlowerstrupper)rWrCrkeyvalrrrrPVs   rPcCs|dkr |Sd||S)Nrz \{}{{ {}}}r)tagcoderrrwrapesrcc st||d}d}d}d}d} d} t} tdd| DrPt| } d}| ddD](} | dsz| tksz| d kr\| | q\|d d d| D7}|d fd d| D7}t dd|}t dd|}d|kr| dd }|dkr||7}|t | 7}tjd|} t| ddd6}|tj|tj|ddd|| |dddW5QRX|dk r d|kr |d}fdd|Dpdgd}d}|r d|kr |td t|d!rd!nd|d7}t| d"dd}||dW5QRXdS)#aWrite R documentation file (.Rd) given component name and properties. Parameters ---------- name = the name of the Dash component for which a help file is generated props = the properties of the component description = the component's description, inserted into help file header prefix = the DashR library prefix (optional, can be a blank string) rpkg_data = package metadata (optional) Returns ------- writes an R help file to the man directory for the generated R package z.RdrzQnamed list of JSON elements corresponding to React.js properties and their valuescss|]}|dVqdSrr r rrrrsz"write_help_file..rNr rrcss|]}d|VqdSrrrrrrrsz c3s0|](}d|t|d|dVqdS)z\item{{{}}}{{{}{}}}type descriptionN)r print_r_typerrrrrs  z(?sz#write_help_file..rbZexamplesZdontrunza+)r3r(r)r*r+r rr/r.resubrQrstripwildcard_help_templaterrGrEopenwrite help_stringtextwrapfillr-rLrc)rrrer4 rpkg_data file_namer rrqr6rrr5r7 file_pathfexZthe_exresultfar)rrrwrite_help_fileksh        rc Cst|d}t|||||d}t||||}t||d}tjd|} t| ddd} | || |W5QRXt d |dS) Nr%# AUTO GENERATED FILE - DO NOT EDIT .RRrhrirjz Generated {}) rrr8r3rGrEr.ryrzprintr) rrrer#r4r~ import_stringZ class_stringrrrrrrwrite_class_files  rc Cst||d}d}tjds&tdtjd|}t|ddd}|||r\|tW5QRXtjdr|t dtdt |D]z\}}} | D]j} tj | d} | d krqtjtjd tj ||} tj| st| t tj|| | qqd S) zWrite an internal (not exported) R function to return all JS dependencies as required by dash. Parameters ---------- project_shortname = hyphenated string, e.g. dash-html-components Returns ------- )rUr# internal.Rrrhrirjz inst/depsr)z.pyz.pycz.jsonz inst/deps/N)rYrGrEexistsmakedirsr.ryrzwildcard_helpershutilrmtreewalksplitextrelpathcopy) rUr# has_wildcardsrXrrrZ rel_dirname_ filenamesfilename extensionZtarget_dirnamerrrwrite_js_metadatas:          rc$Cst|}d} d} |d} |dk r||dr@|d|dd} |dr^|d|dd} |drd|dd} n|dd} |dd} |d d }|rd |d }td d |}|r|d }td d |}|r|d }td d |}d|kr"|ddd}nd}tdtj dd|krL|dd}nd}tdtj d|d}| dd}| dddd}| dd}| ddd}|d|d}d|krtdtj dt d|dk r|drd|dd} nd |||} t jd!s@t jd"s@|d#d}n*|d#dd$}t jd!sjt d"d!d%}d}| d | d }tt|}|r|D]}|d&|7}qt jd'rd(}d)|krd*|kr|d+7}|d }nd}t jd,|d-}t|||td.d/d0d1$}||||||W5QRXtd2d/d0d1}|tW5QRXtj|| | || ||||| |||d3 } td4d/d0d1}!|!| W5QRX|dk r |dr tj||d|d| |d5}"t|d6d0d1}#|#|"W5QRXdS)7zGenerate documents for R package creation. Parameters ---------- pkg_data rpkg_data project_shortname export_string package_depends package_imports package_suggests has_wildcards Returns ------- rrNpkg_help_titlerepkg_help_descriptionZ pkg_copyrightz Copyright: {}r9z0.0.1r,z (,(?![ ]))ZbugsurlzGWarning: a URL for bug reports was not provided. Empty string inserted.)fileZhomepagez@Warning: a homepage URL was not provided. Empty string inserted.authorz brackets in package.json. Z pkg_authorsz Authors@R: {}zD Authors@R: person("{}", "{}", role = c("aut", "cre"), email = "{}")LICENSEz LICENSE.txtlicensez + file LICENSErz import({}) Z vignettesz VignetteBuilder: knitrZknitrZ rmarkdownz, knitr, rmarkdownrgz -package.RdZ NAMESPACEzw+rirjz .Rbuildignore) r& package_titlepackage_descriptionpackage_versionpackage_rauthorspackage_dependspackage_importspackage_suggestspackage_licensepackage_copyright package_urlpackage_issuesvignette_builderZ DESCRIPTION)r&rrlib_namerrh)r'rLrstriplstriprurvrrDstderrrQrsplitexitrGrEisfilesymlinkfilterr\rr.rryrzrbuild_ignore_stringdescription_template pkghelp_stub)$rUr~r# export_stringrrrrr&rrrrrrrrZpackage_authorZpackage_author_nameZpackage_author_emailZpackage_author_fnZpackage_author_lnrrrZpackages_stringZ rpackage_listZrpackagerZpkghelp_stub_pathrf2Zdescription_stringZf3ZpkghelpZf4rrr generate_rpkgs                          rcCs.|d}|dddd|ddDS)Nrrrcss|]}|VqdS)N) capitalize)r rhrrrrsz+snake_case_to_camel_case..r)rQr.)Z namestringsrrrr's r'cCs,|r|t|St|d|ddS)Nrr)r'r])r4rrrrr3s r3c KsTt||} d} |D]"} tdd| dDrd} q:qt|||| |||| dS)NFcss|]}|dVqdSrr r rrrrsz#generate_exports..rT)make_namespace_exportsvaluesr*r) r# componentsmetadatarUr~r4rrrkwargsrrZcomponent_datarrrgenerate_exportss  rc sd}|D]6}|dst|tkrt|dkr|d|7}qg}ddgfdd|D}g}td D]*}|d rl||krl|tjd |g7}ql|D]}t|d d d }| } t j dd| t j d} | dd dd} t dd| } t dd| } t| d} t| | kr>t| } t dd| } t dd| } qt d| } | D]0} | d} | ddkrN| |krN|| qNW5QRXq|ddd |D7}|S)!Nrr )rrz export({}{}) zutils.Rrcsg|]}d|qS)z{}{}.Rr)r componentr4rrrt sz*make_namespace_exports..rrrrirjz#.*$)flagsrorp z'([^'\\]|\\'|\\[^'])*'z''z"([^"\\]|\\"|\\[^"])*"z""rz\(([^()]|\(\))*\)z()z\{([^{}]|\{\})*\}r<z6([^A-Za-z0-9._]|^)([A-Za-z0-9._]+)\s*(=|<-)\s*functionrr;css|]}d|VqdS)z export({})Nr)r functionrrrrLsz)make_namespace_exports..)r r^rrrGlistdirrEr.ryreadrurvMr-rNfindallappend)rr4rrZ rfilelistZomitlistZfnlistscriptrfilerZprev_lenmatchesmatchfnrrrrsN   rcspfdd}tddddddddddd dd dd dfd dfd dfddfdd||dS)z8Mapping from the PropTypes js type object to the R type.c s>dddddDdddddDS) Nz lists containing elements {}. {}rcss|]}d|VqdS)rNrr trrrrUsz;get_r_prop_types..shape_or_exact..valuez+Those elements have the following types: {}roc ss0|](\}}t|||d|ddddVqdS)requiredrerr) prop_name type_objectrre indent_numN)create_prop_docstring_rrL)r rproprrrrWs )rr.itemsrrrrshape_or_exactSs  z(get_r_prop_types..shape_or_exactcSsdS)Nz unnamed listrrrrrez"get_r_prop_types..cSsdS)NlogicalrrrrrrfrcSsdS)NnumericrrrrrrgrcSsdS)N characterrrrrrrhrcSsdS)Nz named listrrrrrrircSsdS)Nz9logical | numeric | character | named list | unnamed listrrrrrrjrcSsdS)Nzdash componentrrrrrrkrcSsdS)Nz8a list of or a singular dash component, string or numberrrrrrrlrcsdddddDS)Nza value equal to: {}rcss |]}dt|dVqdS)r<rN)rr^rrrrros5get_r_prop_types....rrr.rrrrrnscsdddddDS)Nr<z | css(|] }t|dkrdt|VqdS)rr<N get_r_typer)r ZsubTyperrrrss rrrrrrrrrs cs*dtddkr$dtdndS)Nr(rrz of {}srrrrrrzs csdtdS)Nz.list with named elements and values of type {}r)rrrrrrrs )arrayr\numberstringobjectr*elementnodeenumunionZarrayOfZobjectOfshapeexact)dict)rrrrrget_r_prop_typesPs"    rFcCsP|d}t|d}d|kr"|ds2|dddkr6dS||krL||}|SdS)aP Convert JS types to R types for the component definition Parameters ---------- type_object: dict react-docgen-generated prop type dictionary is_flow_type: bool indent_num: int Number of indents to use for the docstring for the prop Returns ------- str Python type string rrZcomputedrdrr)rrL)r is_flow_typerZ js_type_nameZ js_to_r_typesZ prop_typerrrrs  rcCst|}|r|d7}|S)Nz. )rr)ZtypedataZ typestringrrrrfs rfcCszt|||dd}d|}d|kr>dj|||||r6dnddSd j|||rTd |nd |d krhd |nd |rrdnddS) aS Create the Dash component prop docstring Parameters ---------- prop_name: str Name of the Dash component prop type_object: dict react-docgen-generated prop type dictionary required: bool Component is required? description: str Dash component description indent_num: int Number of indents to use for the context block (creates 2 spaces for every indent) is_flow_type: bool Does the prop use Flow types? Otherwise, uses PropTypes Returns ------- str Dash component prop docstring r)rrrz roz^{indent_spacing}- {name} ({is_required}): {description}. {name} has the following type: {type}roptional)indent_spacingrrdreZ is_requiredz;{indent_spacing}- {name} ({type}{is_required}){description}z{}; rz: {}r)rrrrerrZ r_type_namerrrrrs,   rcCs,d}|ddd|D7}|dkr(d}|S)Nrrcss"|]}|drd|VqdS)r rN)r rrrrrrs z"get_wildcards_r..r>)r.)r5r rrrr+s r+)NN)Fr)F)(rGrDrrIr|rur0Z _all_keywordsrZ_py_components_generationrr2rMrRrSrTr{rrrrr,rxr8rYrPrcrrrrr'r3rrrrrfrr+rrrrsR  $ Aba 7B $?=  2