Box only exporting one function per script

[mmmmtoasty19]

Error description

The folowing script box can only find the first export function. I have tested this in several ways and am only able to get box to export one function per script

box::use( DBI, RSQLite, here[here], glue[glue], )

' @export

retrieve_data <- function(columns, table) { query <- glue("SELECT {columns} from {table}") con <- DBI$dbConnect( RSQLite$SQLite(), here("app", "synthea.sqlite") ) data <- DBI$dbGetQuery(con, query) DBI$dbDisconnect(con) return(data) }

' @export

test_function <- function() { print("Hello World") }

R version

platform       x86_64-pc-linux-gnu         
arch           x86_64                      
os             linux-gnu                   
system         x86_64, linux-gnu           
status                                     
major          4                           
minor          3.3                         
year           2024                        
month          02                          
day            29                          
svn rev        86002                       
language       R                           
version.string R version 4.3.3 (2024-02-29)
nickname       Angel Food Cake

‘box’ version

‘1.2.0’

[ArcadeAntics]

Hi @mmmmtoasty19 !

Your issue might be related to another issue, #362 .

A whitespace character does not appear after @export in the example you have here, so that may not be the issue, but you should double check your real script to see if that is the case.

[klmr]

Sorry, I can’t reproduce this: I saved your code as test.r and did the following:

box::use(./test)
ls(test)

[1] "retrieve_data" "test_function"

As you can see, both functions are exported.