Skip to content

Instantly share code, notes, and snippets.

View ttnsy's full-sized avatar
🍊

Tanesya Tresna ttnsy

🍊
View GitHub Profile
@ttnsy
ttnsy / searchable_dropdown.R
Last active December 11, 2023 10:11 — forked from Gotfrid/searchable_dropdown.R
shiny.fluent Dropdown component with search capabilities
#' shiny.fluent[0.2.1]
box::use(
shiny[div, moduleServer, NS, observeEvent],
shiny.fluent[JS, fluentPage, Dropdown.shinyInput]
)
DropdownMenuItemType <- function(type) { # nolint
JS(paste0("jsmodule['@fluentui/react'].DropdownMenuItemType."), type)
}
@ttnsy
ttnsy / detect_function.R
Created October 1, 2023 04:10
Generates a DataFrame mapping functions to their source and target files, with optional box::use() formatting.
library(stringr)
library(glue)
get_target_files <- function(path_target) {
filenames <- list.files(
path = path_source,
full.names = TRUE,
include.dirs = FALSE
)