vertesy / codeandroll2 Goto Github PK

As of 2021 it is a major task to format this library into a proper package

Based on
R you sure you’re using this package?

we recommend:
NCmisc (version 1.1.6) list.functions.in.file: Show all functions used in an R script file, by package

I tried installing CodeAndRoll2 with

require("devtools")
devtools::install_github(repo = "vertesy/CodeAndRoll2")

but got the following error:
Error: Failed to install 'unknown package' from GitHub:
HTTP error 404.
No commit found for the ref master

Did you spell the repo owner (vertesy) and repo name (CodeAndRoll2) correctly?

• If spelling is correct, check that you have the required permissions to access the repo.

This only worked once I installed it from the main branch and not the master. Might be useful in the future for others:
devtools::install_github(repo = "vertesy/CodeAndRoll2", ref = 'main')

• https://r-pkgs.org/whole-game.html
• https://www.rstudio.com/resources/videos/you-can-make-a-package-in-20-minutes/
• https://support.rstudio.com/hc/en-us/articles/200486488-Developing-Packages-with-RStudio

Core functionality

• Data object operations

Move to StringsAndPaths

• StringsAndPath operations
• helpers for Markdownreports and ggExpress

Move to FileWriter or IO

• Input Output
• write.simple functions

Move to Rocinante

• Anything not core and StringsAndPaths
• No

To Do

• My package dependency should be a tree, not a network. → See draw.io.
• Packages should import specific fun, not depend (=and load) an entire package
  • Define what load-dependencies are essential for each package
  • Then rest of fun's get ::.
• Add ::-s
• Check dependencies in each package
  • Get a package that fixes dependencies.
  • Maria tools::package_dependencies.

it should handle tibble or raise an error

any.duplicated() is not found, even if part of the package.
Found in NAMESPACE, and in man. Mistery.

Description
as.named.vector() on a DF column gives back a vector much longer than the original dimensions

Expected Behavior

• complain if not uni dimensional?

Buggy Behavior

> l(as.named.vector(obj@meta.data[ , assignments]))
[1] 35860
> dim((obj@meta.data[ , assignments]))
[1] 7172    5

Fun

 as.named.vector <- function (df_col, WhichDimNames = 1) 
{
    namez = dimnames(df_col)[[WhichDimNames]]
    if (is.list(df_col) & !is.data.frame(df_col)) {
        namez = names(df_col)
    }
    vecc = as.vector(unlist(df_col))
    names(vecc) = namez
    return(vecc)
}
<bytecode: 0x7fd41b108ba8>
<environment: namespace:CodeAndRoll2>