Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 

Find everything you need to get certified on Fabric—skills challenges, live sessions, exam prep, role guidance, and more. Get started

Reply
Anonymous
Not applicable

How to use R script in power query ? for populating Column using if condition in R SCRIPT

Hi

I have a table A(exist in power bi data model)

Table A
IDNameFlag
111alexF
222padianT
333heyoT
444yopeF

I want to create a new column 'Flad des' using 'Flag column' by if condition in R SCRIPT, find the below exepected output for your reference.
O/P:

Table A
IDNameFlagFlag des
111alexFFALSE
222padianTTRUE
333heyoTTRUE
444yopeFFALSE


If you could help me it would be helpfull, also please share me the screehot if possible .

 

Thanks in advance

 

1 ACCEPTED SOLUTION
v-xuding-msft
Community Support
Community Support

Hi @Anonymous ,

 

Please try this:

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

 

v-xuding-msft_0-1600250902132.png

 

Best Regards,
Xue Ding
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

View solution in original post

2 REPLIES 2
v-xuding-msft
Community Support
Community Support

Hi @Anonymous ,

 

Please try this:

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

 

v-xuding-msft_0-1600250902132.png

 

Best Regards,
Xue Ding
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.
Greg_Deckler
Super User
Super User

@Anonymous - 

Greg_Deckler_0-1599131818691.png

 


Follow on LinkedIn
@ me in replies or I'll lose your thread!!!
Instead of a Kudo, please vote for this idea
Become an expert!: Enterprise DNA
External Tools: MSHGQM
YouTube Channel!: Microsoft Hates Greg
Latest book!:
The Definitive Guide to Power Query (M)

DAX is easy, CALCULATE makes DAX hard...

Helpful resources

Announcements
July 2024 Power BI Update

Power BI Monthly Update - July 2024

Check out the July 2024 Power BI update to learn about new features.

PBI_Carousel_NL_June

Fabric Community Update - June 2024

Get the latest Fabric updates from Build 2024, key Skills Challenge voucher deadlines, top blogs, forum posts, and product ideas.

Top Solution Authors
Top Kudoed Authors